View Full Version : پوشه سیستمی temp
arash.arya43
چهارشنبه 26 شهریور 1393, 12:06 عصر
با چه دستوری میتونم مسیر پوشه تمپ رو بریزم داخل یه متغیر
Mr.305
چهارشنبه 26 شهریور 1393, 12:11 عصر
dim s as string
s=environ("TEMP")
arash.arya43
چهارشنبه 26 شهریور 1393, 12:24 عصر
وای نه.مستر 305 اسم این environ رو نیار كه حالم رو بد میکنه، هزار بار تستش کردم
http://barnamenevis.org/showthread.php?469338-%D9%85%D8%B4%DA%A9%D9%84-%D8%A8%D8%A7-Environ
اینم یه کد دیگه که مثلا خواستم یه جور دیگه امتحان کنم
Dim ResDim Filename
Dim ussrussr$
ussrussr$ = Environ("USERNAME")
Filename = "C:\Users\&ussr\AppData\Local\Temp\a.mp3"
If Dir(Filename) = "" Then
MsgBox Filename & " not found", vbInformation
Else
Res = Shell("Explorer.exe " & Filename, vbHide)
End If
vbhamed
چهارشنبه 26 شهریور 1393, 14:30 عصر
سلام
جواب اون تاپيكتون رو همونجا دادم، مشكل ربطي به Environ نداره، اما اينم يك راه به كمك API
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Sub Form_Load()
Dim t$, l&, TempPath$
t = Space$(255)
l = GetTempPath(255, t)
TempPath = Left(t, l)
MsgBox TempPath
End Sub
arash.arya43
چهارشنبه 26 شهریور 1393, 14:52 عصر
بسیار ممنونم .حل کردم با همون تابع یه مدل دیگه.میزارم شاید کسی لازم داشت اواره کوه وبیابان نشه
Private Sub Command1_Click()Dim Res
Dim Filename
Dim adree
Filename = Environ("temp")
adree = Filename + "\aa.vbs"
Res = Shell("Explorer.exe " & adree)
End Sub
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.