(02-05-23, 07:26 PM)سعود كتب :

(02-05-23, 07:16 PM)Abdh111 كتب :

(02-05-23, 06:38 PM)سعود كتب : الجزئية اللي انا تدخلت بها هي تخص:

PHP كود :

"D:\Odoo_Bakup\wi-621.exe" 


PHP كود :

       Dim fn As New IO.FileInfo("D:\Odoo_Bakup\wi-621.exe")
        Dim dt As String = Now.ToFileTime.ToString
        Dim folder As String = IO.Path.GetDirectoryName(fn.FullName)
        Dim newfile As String = folder & "\" & dt & fn.Name
        My.Computer.Network.DownloadFile("https://www.win-rar.com/postdownload.html?&L=0", newfile, "", "") 


لم اجرب الكود من ناحية التحميل وانما فقط عدلت ليتم صياغة مسمى للملف من الوقت الحالي بعد تحويله الى نص.

جزاك الله خيرا اخي الكريم / سعود
كدة تمام ولكن هل يمكن ان اسمي الملف كما هو محمل من الانترنت مضاف اليه تاريخ اليوم ؟
مع العلم كدة تمام بس للتفرقة بين الملفات المحملة اريد تسمية الملف المحمل باسمه مضاف اليه تاريخ اليوم 
مثال file_name_2-5  ,  file_name_3-5

الكود اللي انا كتبته لك يقوم بتحويل التاريخ الى نص وتستطيع اعادته الى تاريخ لاحقا لكن الاهم الان ان تضع الاسم بين رمزين لتستخلصه لاحقا.

(04-05-23, 04:08 PM)Abdh111 كتب : السلام عليكم
اخواني الكريم رجاء المساعدة
الملف بينزل لكن بحجم صغير جدا بما يعني انه اما تالف او مانزلش اصلا
مش عارف فين المشكلة ؟

(01-05-23, 03:20 PM)Abdh111 كتب : السلام عليكم ورحمة الله وبركاته
لو تكرمتم انا بعمل برنامج صغير ينزل لي نسخة احتياطية من قاعدة البيانات الخاصة بالشركة ( مع وجود يوزرنيم وباسورد للتنزيل )
فا بيعطي الرسالة دي

The request was aborted: Could not create SSL/TLS secure channel.
هل من حل وجزاكم الله خيرا
او لو فيه كود شغال اعينوني اعانكم الله
الكود|
|
|
 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        My.Computer.Network.DownloadFile(
            "https://www.win-rar.com/download.html?&L=0",
     "D:\Odoo_Bakup\winrar-x64-621.exe", "anonymous", "")
    End Sub