ايران ويج

سلام..[:43:]..ميخاستم بگم مثلايه تابع اي پي اي داريم كه مسير پوشه سيستم رو نشون ميده ..حالا اگه بخاهيم مسر يه پوشه ديگه (مثلا نيو فولدر 2) اونوقت چه بايد كرد..البته در ويژوال بيسيك و دلفي

amircivil نوشته است:سلام..[:43:]..ميخاستم بگم مثلايه تابع اي پي اي داريم كه مسير پوشه سيستم رو نشون ميده ..حالا اگه بخاهيم مسر يه پوشه ديگه (مثلا نيو فولدر 2) اونوقت چه بايد كرد..البته در ويژوال بيسيك و دلفي

سلام
بفرما:

کد: 
Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

'-------------------------------------------------

Public Function SysDIR()

Dim Ret As Long

Dim SysDIR2 As String

SysDIR2 = Space(250)

Ret = GetSystemDirectory(SysDIR2, 250)

SysDIR = Left$(SysDIR2, Ret)

End Function

'--------------------------------------------------

Public Function WinDIR()

Dim Ret As Long

Dim WinDIR2 As String

WinDIR2 = Space(250)

Ret = GetWindowsDirectory(WinDIR2, 250)

WinDIR = Left$(WinDIR2, Ret)

End Function

موفق باشي
نبي

amircivil

NabiKAZ