تقييم الموضوع :
  • 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
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة: asemshahen5 , Ali09765 , سعود , ابراهيم ايبو
#3
للاسف استخدمت الكودين لكن ما نفعو
الرد
تم الشكر بواسطة: bidaya
#4
ماهي الفكرة الاساسية ؟
لو تقصد واجهة تختار المجلد المصدر والوجهة فهذا بسيط بغض النظر عن نوع الذاكرة ثابتة او قابلة للنقل.




نصيحة للتخفيف على قاعدة بيانات المنتدى  لا تخزن الصور الخاصة بالسؤال في قاعدة بيانات المنتدى

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] طريقة عمل برنامج دمج ملفات التيكس بوكس Ali 2020 2 93 11-09-20, 07:44 PM
آخر رد: Ali 2020
  [سؤال] كيف تفتح ملفات بدون ملف المشروع solutin عبد الهادي بهاب 4 198 06-09-20, 03:17 AM
آخر رد: عبد الهادي بهاب
  [VB.NET] محتاج كود عرض اكثر من جدول فى داتا جرد فيو واحدة عن طريق اختيار الجدول من كومبوكس mohammed1994 1 178 01-09-20, 04:56 PM
آخر رد: اسامه الهرماوي
  لو سمحتم اريد تعديل على هذا المشروع خالد كامل1 3 322 20-08-20, 06:09 PM
آخر رد: خالد كامل1
  [VB.NET] لو سمحت محتاج مساعدة في تنفيذ شريط مهام للمشروع MustafaShaker 2 234 15-08-20, 05:59 AM
آخر رد: MustafaShaker
  طلب لو سمحتم خالد كامل1 3 235 14-08-20, 06:58 PM
آخر رد: خالد كامل1
  لو سمحتم ممكن طريقه لاضافه لوجو فى تقارير الكريستال ريبورت خالد كامل1 5 348 07-08-20, 12:43 AM
آخر رد: عبد العزيز البسكري
  طريقة خفيفة لاخفاء كل ملفات مشروعك المهنا 2 335 24-07-20, 09:35 PM
آخر رد: المهنا
  ياشباب محتاج كود صغير يقوم بالبحث عن حقل معين فلتر بال Datagridview moh61 13 3,878 21-07-20, 11:48 PM
آخر رد: alessam4pro
  [سؤال] محتاج سورس Mina Botros 1 201 20-07-20, 04:33 AM
آخر رد: Mina Botros

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


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