+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : ارجو المساعده في كود تنزيل قاعدة اليانات من موقع FTP (/showthread.php?tid=2444)
ارجو المساعده في كود تنزيل قاعدة اليانات من موقع FTP - VB.NET - 03-04-14
لدي قاعدة بيانات وقد رفعتها الى الموقع وعند استخدام الكود التالي لتنزيلها الى داخل المجلد
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
RE: ارجو المساعده في كود تنزيل قاعدة اليانات من موقع FTP - VB.NET - 03-04-14
ولاكن المشكلة انه عند وجود قاعدة البيانات لا يقوم بتنزيلها مرة ثانية اريد تعديل الكود في حالة وجود قاعدة البيانات قم باستبدالها
RE: ارجو المساعده في كود تنزيل قاعدة اليانات من موقع FTP - VB.NET - 04-04-14
اين الاخوه الأفاضل نرجو المساعده
RE: ارجو المساعده في كود تنزيل قاعدة اليانات من موقع FTP - VB.NET - 05-04-14
؟؟؟؟؟؟
RE: ارجو المساعده في كود تنزيل قاعدة اليانات من موقع FTP - VB.NET - 09-04-14
لا يوجد حل
RE: ارجو المساعده في كود تنزيل قاعدة اليانات من موقع FTP - VB.NET - 10-04-14
لا يوجد حل للموضوع