aliblk10
چهارشنبه 05 آبان 1389, 00:26 صبح
سلام دوستان عزیز
من این کد رو تو ماژول مینویسم
Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Function WinDirectory() As String
Dim WinDir As String
WinDir = Space(255)
GetWindowsDirectory WinDir, 255
WinDirectory = WinDir
End Function
و از این طریق Text1.Text = WinDirectory هم خروجی میگیرم
ولی حالا میخوام تو این مسیر یه فایل بسازم
دوستان اگه راهنمائی کنن ممنون میشم بگن که چطوری باید مسیر پیش فرض رو به دستور open بدم.
من این کد رو تو ماژول مینویسم
Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Function WinDirectory() As String
Dim WinDir As String
WinDir = Space(255)
GetWindowsDirectory WinDir, 255
WinDirectory = WinDir
End Function
و از این طریق Text1.Text = WinDirectory هم خروجی میگیرم
ولی حالا میخوام تو این مسیر یه فایل بسازم
دوستان اگه راهنمائی کنن ممنون میشم بگن که چطوری باید مسیر پیش فرض رو به دستور open بدم.