03-04-14, 10:54 AM
لدي قاعدة بيانات وقد رفعتها الى الموقع وعند استخدام الكود التالي لتنزيلها الى داخل المجلد
Private Sub LblDnldFile_Click()
If Inet1.URL = Trim("") Then
Beep
LblStatus.Caption = ("Status : Not Connected")
Exit Sub
End If
If FSO.FolderExists("D:\AcountCasher\CASHER") = False Then FSO.CreateFolder ("D:\AcountCasher\CASHER")
FtpFile = LstFtpFiles.Text
LoclFilNm = ("D:\AcountCasher\CASHER\" & FtpFile)
If FSO.FileExists("D:\AcountCasher\CASHER\" & FtpFile) Then
LblStatus.Caption = ("Status : File " & FtpFile & " Already Exisits")
If Inet1.StillExecuting = True Then Inet1.Execute , "Close"
Exit Sub
End If
Status = ("GET")
Inet1.Execute , "GET " & FtpFile & " " & LoclFilNm
UsrFriendly = ("Downloaded Successfully")
End Sub
Private Sub LblDnldFile_Click()
If Inet1.URL = Trim("") Then
Beep
LblStatus.Caption = ("Status : Not Connected")
Exit Sub
End If
If FSO.FolderExists("D:\AcountCasher\CASHER") = False Then FSO.CreateFolder ("D:\AcountCasher\CASHER")
FtpFile = LstFtpFiles.Text
LoclFilNm = ("D:\AcountCasher\CASHER\" & FtpFile)
If FSO.FileExists("D:\AcountCasher\CASHER\" & FtpFile) Then
LblStatus.Caption = ("Status : File " & FtpFile & " Already Exisits")
If Inet1.StillExecuting = True Then Inet1.Execute , "Close"
Exit Sub
End If
Status = ("GET")
Inet1.Execute , "GET " & FtpFile & " " & LoclFilNm
UsrFriendly = ("Downloaded Successfully")
End Sub