منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

لدي قاعدة بيانات وقد رفعتها الى الموقع وعند استخدام الكود التالي لتنزيلها الى داخل المجلد
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

ولاكن المشكلة انه عند وجود قاعدة البيانات لا يقوم بتنزيلها مرة ثانية اريد تعديل الكود في حالة وجود قاعدة البيانات قم باستبدالها

اين الاخوه الأفاضل نرجو المساعده

؟؟؟؟؟؟

لا يوجد حل

لا يوجد حل للموضوع