Restlesa
سه شنبه 22 آذر 1390, 02:59 صبح
سلام بر همگی دوستان عزیز برنامه نویس
من می خوام سیستم زیر رو پیاده سازی کنم اما به مشکل بر خوردم و مشکلم اینه که فایل New DataBse1.dat داخل پروشه Add Category ایجاد نمیشه ... مشکل از کجاست ؟؟؟
C:\Documents and Settings\Hesam\Local Settings\Temp\Advanced URL Catalog\Add Category\New DataBase 1.dat
کد :
Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Public Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Public Type SECURITY_ATTRIBUTES
nLength As Long
bInheritHandle As Long
lpSecurityDescriptor As Long
End Type
Function FindTempPath()
Buffer = String(255, 0)
GetTempPath 255, Buffer
Buffer = Left$(Buffer, InStr(Buffer, Chr$(0)) - 1)
FindTempPath = Buffer & "Advanced URL Catalog"
End Function
Private Sub Command1_Click()
Temp = FindTempPath
Temp2 = CreateDirectory(Temp & "\Add Category", Security)
Open Temp2 & MainForm.ActiveForm.Caption & ".dat" For Random As #1 Len = Len(NewAUCFile)
Records = LOF(1) \ Len(NewAUCFile)
Put #1, Records + 1, AddCategory
Close #1
End Sub
در ضمن پوشه Advanced URL Catalog رو خودم قبلا با استفاده از دستور CreateDirectory ساختم
منتظر راهنمایی هاتون هستم
من می خوام سیستم زیر رو پیاده سازی کنم اما به مشکل بر خوردم و مشکلم اینه که فایل New DataBse1.dat داخل پروشه Add Category ایجاد نمیشه ... مشکل از کجاست ؟؟؟
C:\Documents and Settings\Hesam\Local Settings\Temp\Advanced URL Catalog\Add Category\New DataBase 1.dat
کد :
Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Public Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Public Type SECURITY_ATTRIBUTES
nLength As Long
bInheritHandle As Long
lpSecurityDescriptor As Long
End Type
Function FindTempPath()
Buffer = String(255, 0)
GetTempPath 255, Buffer
Buffer = Left$(Buffer, InStr(Buffer, Chr$(0)) - 1)
FindTempPath = Buffer & "Advanced URL Catalog"
End Function
Private Sub Command1_Click()
Temp = FindTempPath
Temp2 = CreateDirectory(Temp & "\Add Category", Security)
Open Temp2 & MainForm.ActiveForm.Caption & ".dat" For Random As #1 Len = Len(NewAUCFile)
Records = LOF(1) \ Len(NewAUCFile)
Put #1, Records + 1, AddCategory
Close #1
End Sub
در ضمن پوشه Advanced URL Catalog رو خودم قبلا با استفاده از دستور CreateDirectory ساختم
منتظر راهنمایی هاتون هستم