PDA

View Full Version : بدست آوردن آدرس دسکتاپ در vb6


goshveg
شنبه 01 آبان 1389, 10:43 صبح
بدست آوردن آدرس دسکتاپ در vb6
saeedvir
شنبه 01 آبان 1389, 15:52 عصر
بفرما


Dim HomeDir As String
Dim DesktopPath As String

HomeDir = Environ("windir")
DesktopPath = Left(HomeDir, 3) & "Documents and Settings\" & Environ("username") & "\Desktop"
MsgBox DesktopPath

براي win7 يا vista بايد خودتون سورس را يكم تغيير بديد:لبخند:
xxxxx_xxxxx
شنبه 01 آبان 1389, 18:48 عصر
سلام،

MsgBox Environ("UserProfile") & "\Desktop"