پوشه سیستمی temp

[arash.arya43]

با چه دستوری میتونم مسیر پوشه تمپ رو بریزم داخل یه متغیر

[Mr.305]

dim s as string
s=environ("TEMP")

[arash.arya43]

وای نه.مستر 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]

سلام

جواب اون تاپيكتون رو همونجا دادم، مشكل ربطي به 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]

بسیار ممنونم .حل کردم با همون تابع یه مدل دیگه.میزارم شاید کسی لازم داشت اواره کوه وبیابان نشه

Private Sub Command1_Click()Dim Res
Dim Filename
Dim adree
Filename = Environ("temp")
adree = Filename + "\aa.vbs"
Res = Shell("Explorer.exe " & adree)
End Sub