تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] محتاج ضروري لو سمحتم كود عمل نسخه احتياطيه من ملفات usb
#1
كود او مثال لعمل نسخه احتياطيه من جميع ملفات  usb الى حافضه اخرى في الكمبيوتر
الرد
تم الشكر بواسطة: bidaya
#2
(11-03-20, 12:18 AM)Ali09765 كتب : كود او مثال لعمل نسخه احتياطيه من جميع ملفات  usb الى حافضه اخرى في الكمبيوتر



هذا الكود 
لم اجربه لكن يمكن يفيدك 

كود :
Dim MyDoc As New IO.FileInfo(My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\Backup Of Files\test\")

       For Each foundFile As String In My.Computer.FileSystem.GetFiles(MyDoc.Directory.FullName, FileIO.SearchOption.SearchAllSubDirectories, "*.txt")

           Try
               For Each drive As System.IO.DriveInfo In System.IO.DriveInfo.GetDrives
                   If drive.DriveType = IO.DriveType.Removable AndAlso drive.IsReady Then ' AndAlso drive.AvailableFreeSpace >= 2 * Gig Then

                       Dim DriveLetter As String = drive.Name
                       Dim PathToUSBDrive = DriveLetter & IO.Path.GetFileName(foundFile)

                       My.Computer.FileSystem.CopyFile(foundFile, PathToUSBDrive, True)

                   End If
               Next
           Catch ex As Exception
           End Try
       Next
كود :
Imports System.Runtime.InteropServices

Public Class Form1
   Dim Reponse As VbMsgBoxResult
   Private Const WM_DEVICECHANGE As Integer = &H219
   Private Const DBT_DEVICEARRIVAL As Integer = &H8000
   Private Const DBT_DEVTYP_VOLUME As Integer = &H2

   Public Structure DEV_BROADCAST_HDR
       Public dbch_size As Int32
       Public dbch_devicetype As Int32
       Public dbch_reserved As Int32
   End Structure

   Private Structure DEV_BROADCAST_VOLUME
       Public dbcv_size As Int32
       Public dbcv_devicetype As Int32
       Public dbcv_reserved As Int32
       Public dbcv_unitmask As Int32
       Public dbcv_flags As Int16
   End Structure

   Private Function GetDriveLetterFromMask(ByRef Unit As Int32) As Char
       For i As Integer = 0 To 25
           If Unit = (2 ^ i) Then
               Return Chr(Asc("A") + i)
           End If
       Next
   End Function

   Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
       If m.Msg = WM_DEVICECHANGE Then
           If CInt(m.WParam) = DBT_DEVICEARRIVAL Then
               Dim DeviceInfo As DEV_BROADCAST_HDR
               DeviceInfo = DirectCast(Marshal.PtrToStructure(m.LParam, GetType(DEV_BROADCAST_HDR)), DEV_BROADCAST_HDR)
               If DeviceInfo.dbch_devicetype = DBT_DEVTYP_VOLUME Then
                   Dim Volume As DEV_BROADCAST_VOLUME
                   Volume = DirectCast(Marshal.PtrToStructure(m.LParam, GetType(DEV_BROADCAST_VOLUME)), DEV_BROADCAST_VOLUME)
                   Dim DriveLetter As String = (GetDriveLetterFromMask(Volume.dbcv_unitmask) & ":\")
                   If IO.File.Exists(IO.Path.Combine(DriveLetter, "Sauvegarde.txt")) Then
                       Reponse = MsgBox("Voulez vous sauvegarder votre clé USB?", vbYesNo, "Sauvegarde USB?")
                   Else

                   End If
               End If
           End If
       End If
       MyBase.WndProc(m)
       If Reponse = vbYes Then
           Call MsgBox("OUI appuye")
       Else
           Call MsgBox("NON appuye")
       End If
   End Sub
End Class
الرد
تم الشكر بواسطة: asemshahen5 , Ali09765 , سعود , ابراهيم ايبو
#3
للاسف استخدمت الكودين لكن ما نفعو
الرد
تم الشكر بواسطة: bidaya
#4
ماهي الفكرة الاساسية ؟
لو تقصد واجهة تختار المجلد المصدر والوجهة فهذا بسيط بغض النظر عن نوع الذاكرة ثابتة او قابلة للنقل.



الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو , bidaya


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question هل يمكن الحصول على نسخه برنامج كريستال ربيوت مع الكراك إن امكن ذلك ؟ Microformt 1 98 23-11-20, 08:09 PM
آخر رد: عبد العزيز البسكري
  [سؤال] كود يبحث في ملفات وورد docx ولا يبحث في doc فما الحل؟ السندبااد 1 111 20-11-20, 10:45 PM
آخر رد: السندبااد
  نقل مجموعة ملفات من مجلد الى مجلد البرنامج aftfm 1 124 15-11-20, 09:04 PM
آخر رد: aftfm
  محتاج مساعده وشكرا مقدما اليوم السابع 2 145 26-10-20, 01:11 PM
آخر رد: اليوم السابع
  محتاج التعديل على المثال المرفق new_programer 2 276 10-10-20, 08:00 PM
آخر رد: shone1
  حفظ ملفات pdf من السكنر moh developer 1 158 30-09-20, 10:49 PM
آخر رد: moh developer
  [سؤال] محتاج احول كود من بايثون الي فيجوال اليوم السابع 4 287 29-09-20, 11:32 PM
آخر رد: اليوم السابع
  برنامج دمج ملفات المشروع في ملف تنفيذي واحد ابو محمد محمد محمد 6 964 27-09-20, 06:35 PM
آخر رد: Anas Mahmoud
  [سؤال] طريقة عمل برنامج دمج ملفات التيكس بوكس Ali 2020 2 288 11-09-20, 07:44 PM
آخر رد: Ali 2020
  [سؤال] كيف تفتح ملفات بدون ملف المشروع solutin عبد الهادي بهاب 4 394 06-09-20, 03:17 AM
آخر رد: عبد الهادي بهاب

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم