الحفظ مباشرة على قرص متحرك (الفلاش ميموري)

[ahmedeg_eg]

السلام عليكم

أخواني الأعزاء

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

ولكم جزيل الشكر

[ahmedeg_eg]

للرفع

[ابوخليل]

السلام عليكم

عند تعدد واختلاف الاجهزة لايمكن الحفظ مباشرة _ حسب علمي _ لانها في كل جهاز تأخذ اسما مختلفا

وذلك راجع الى عدد الاقراص واقسامها في كل جهاز .

يمكنك الحفظ عبر مربع الحوار المعتاد

[ahmedeg_eg]

شكرا للرد

[3mr 3bdeen]

اخي الكريم انا اعلم قليلا عن الدوس .. وكان لي طلب شبية بذلك .. وهو حفظ برنامج معين على الفلاشة الخاصة بي مهما تنوعت الاجهزة وتنوع اسم الفلاشة ان كانت اخذت دريف E:/ أو F:/ .. او غير ذلك .. فالحلل هة ان تضع ملف باسم معين وامتداد معين داخل الفلاشة ..

فيعمل الكود على البحث بداخل الدريفرات عن هذا الملف "الدال" وان وجدة يعمل بنسخ للملف المطلوب بداخل الدريف الذي وجد به الملف الدال عى مكان الحفظ .... اقصد ان لو احد المبرمجين استطاع تحويل تلك الفكرة الى كود يكون الامر اتحل اكيد ..

ارجوا ان اكون قد افدتك

تم تعديل مارس 15, 2012 بواسطه 3mr 3bdeen

[أبو آدم]

أخي أحمد

الحل متاح و الكود شبه جاهز حسب اقترح الأخ عمرو

ولكن حبذا لو وضحت لي ماهية الحفظ المباشر الذي تقصده (ببعض التفصيل)

...................

[ahmedeg_eg]

اخي الكريم

انا بعمل برنامج وعاوز اللي يشتغل عليه قبل مايخرج من البرنامج يحفظة عن طريق زر أمر

وعلشان اضمن ان البرنامج بعد مايدخل فيه البيانات كل يوم وممكن الجهاز يعطل في اي وقت

عاوزة كل يوم يحفظ بزر الأمر على الفلاشا مباشرة حتى نضمن عدم فقد البيانات لما الجهاز يعطل

لو فيه طريقة غير ذلك ممكن تدلني عليها

وانا شاكر ليكم جدا انت والاخ عمرو

[أبو آدم]

أخي العزيز

بالتحليل والتجربة و التدقيق ، نجد أن المسألة تتعلق بالنسخ الإحتياطي ، وخصوصية طلبك أنك تريد هذا النسخ أن يوجه لقرص متبدل ، وهو "الفلاشا" كما أسميتها

والعلة هنا في توجيه عملية النسخ الاحتياطي (وليس الحفظ) للقرص المتبدل ، و هنا أنويه لمنطقية طرح الأخ عمرو ، وبالتالي ، يكون الروتين المتبع كما يلي:

زرع ملف (مهما كان امتداده) على القرص المتبدل ، وعند الرغبة باجراء النسخ الاحتياطي ، يتم البحث عن هذا الملف وتحديد موقعه ، وتوجيه النسخ الاحتياطي للقرص المحدد.

بادر في التنفيذ اذا ناسبتك الفكرة ، ونحن في العون ما قدّر لنا

...............

[أبو آدم]

متابعة ...

[أبو آدم]

إخوتي الفضلاء

من باب التحليل ، و وضع المتاح بين يديك لإعانتكم على التطبيق ، الكود التالي يميز الأقراص المتبدلة (القابلة للإزالة) - فلاش ميموري

Option Compare Database

Option Explicit

'

Sub ShowDriveLetter()

	 '

    Dim Drive As Object, MyDrives As String

	 '

    For Each Drive In CreateObject("Scripting.FileSystemObject").Drives

	    If Drive.DriveType <> 2 Then '< DriveType 2 is the hard drive

		    MyDrives = Drive & vbNewLine & MyDrives

	    End If

    Next

	 '

    MsgBox MyDrives

	 '

End Sub

Private Sub Command0_Click()

ShowDriveLetter

End Sub

[أبو آدم]

وهذا الكود يستخرج معلومات الأقراص (قرص محدد) ، وفي حال كونه Ready يكون جاهزاً للحفظ والتخزين ..

Sub ShowDriveInfo(DrivePath As String)

	 '

    Dim FSO As Object, Drive As Object, Info As String, DriveType As String

	 '

    Set FSO = CreateObject("Scripting.FileSystemObject")

    Set Drive = FSO.GetDrive(DrivePath)

	 '

    Select Case Drive.DriveType

    Case 0: DriveType = "Unknown"

    Case 1: DriveType = "Removable"

    Case 2: DriveType = "Fixed"

    Case 3: DriveType = "Network"

    Case 4: DriveType = "CD-ROM"

    Case 5: DriveType = "RAM Disk"

    End Select

	 '

    Info = "Drive " & Drive.DriveLetter & ": " & DriveType & vbNewLine & _

    "Name: " & Drive.VolumeName

	 '

    If Drive.IsReady Then

	    Info = Info & vbNewLine & "Drive is Ready."

    Else

	    Info = Info & vbNewLine & "Drive is not Ready."

    End If

	 '

    MsgBox Info

	 '

End Sub

Private Sub Command1_Click()

    ShowDriveInfo ("K:")

End Sub

[أبو آدم]

وهذا أدق وأشمل ويحل مشكلة التعرف على CD لبعض الأجهزة

Private Sub Command2_Click()

	 '

    On Error GoTo ErrMsg

    ShowAllDriveInfo ("K:")

	 '

    Exit Sub

	 '

ErrMsg:

    MsgBox Err.Description

End Sub

'

'

Sub ShowAllDriveInfo(DriveName As String)

	 '

    Dim Drive As Object, Info As String, DriveTypeIs As String

	 '

    Set Drive = CreateObject("Scripting.FileSystemObject").GetDrive(DriveName)

	 '

    Select Case Drive.DriveType

    Case 0: DriveTypeIs = "Unknown"

    Case 1: DriveTypeIs = "Removable"

    Case 2: DriveTypeIs = "Fixed"

    Case 3: DriveTypeIs = "Network"

    Case 4: DriveTypeIs = "CD-ROM"

    Case 5: DriveTypeIs = "RAM Disc"

    End Select

	 '

    If Drive.VolumeName = Empty Then Drive.VolumeName = "(None)"

    Info = "Drive " & Drive.DriveLetter & ": " & vbNewLine & _

    "Drive Type: " & DriveTypeIs & vbNewLine & _

    "Drive Name: " & Drive.VolumeName & vbNewLine & _

    "Total Size: " & FormatNumber(Drive.TotalSize / 1024, 0) & " Kbytes" & vbNewLine & _

    "Available Space: " & FormatNumber(Drive.AvailableSpace / 1024, 0) & " Kbytes"

	 '

    If Drive.IsReady Then Info = Info & vbNewLine & "Drive " & Drive.DriveLetter & " is Ready."

	 '

    MsgBox Info

	 '

    Set Drive = Nothing

	 '

End Sub

[محمد ايمن]

اخي الكريم

هذا برنامج يقوم باستخراج رقم الفلاش ميموري

عليك استبدال كود استخراج الرقم بكود الحفظ

استخراج رقم الفلاش ميموري 2.rar

تم تعديل مارس 23, 2012 بواسطه aimanano

[أبو آدم]

ولتتعرف على موقعك (موقع تطبيقك العامل على الجهاز)

Private Function CurrentDriveType() As String

    Dim fso As Object ' File System Object

    Dim drv As Object ' Drive


    Set fso = CreateObject("scripting.filesystemobject")


    Set drv = fso.GetDrive(fso.GetDriveName(CurrentProject.Path))

    CurrentDriveType = Choose(drv.DriveType + 1, "Unknown", "Removable", "Fixed", "Network", "CD-ROM", "RAM Disk")


    MsgBox drv & "  " & CurrentDriveType


    Set drv = Nothing

    Set fso = Nothing

End Function

Private Sub Command3_Click()

CurrentDriveType

End Sub

[محمد ايمن]

ماشاء الله اخي نارت

زادك الله علما و نورا

[أبو آدم]

الحمدلله الذي هدانا وعلّمنا ما لم نكن نعلم

بانتظار تطبيقات تجريبية منكم ........

.....................

[أبو آدم]

إخوتي الفضلاء

إنما التوفيق من الله ، فالحمدلله رب العالمين

أخي العزيز

ترك الأمر لأي قرص مضاف للجهاز فيه خطورة على أمن المعلومات ، لذا سنلتزم بخطتنا و الروتين المقترح

وبالتجربة وجدته الأفضل ، بإذن الله ... وفوق كل ذي علم عليم

نقوم بزرع ملف بأي إسم نختاره أو إمتداد نختاره ضمن القرص المستهدف (فلاش ميموري)

نتأكد من تثبيت هذا الإسم ضمن الكود في التطبيق المرفق ، وهنا مفترض بالاسم (hh.txt)

إضغط زر الأمر وأترك الكود يقوم بالمهمة ...

إسم النسخة على الفلاش ميموري تتحكم بها من الكود وهي هنا مقترنة بإسم إفتراضي مع اليوم و الساعة

جرب ووافني بالنتيجة ...... تطبيق صغير وجهد وتجارب ولكن وبفضل الله أداء دقيق وجيد

والله من وراء القصد ......

.............

NA_BackUpToRemovableDrive.rar

[محمد ايمن]

عمل رائع

ماشاء الله

[ahmedeg_eg]

تمام ولكم جزيل الشكر

ولكن نريد بعض التعديلات

وهي

نحن عملنا برنامج وهذا البرنامج اعطيناه لشخص ما

فهو لا يعرف كيف يعمل ملف txt

هل من الممكن اننا قبل الحفظ نجعل البرنامج ينشأ هذا الملف

وان كان موجودا بالفعل يتم الحفظ دون انشاءه

هذه مجرد فكرة

وطالب رأيكوا

[محمد ايمن]

ممكن اخي الكريم ولكن هل فكرت في حال تم توصيل اكثر من فلاشة في الجهاز

خطرت لي فكرة !!!!

الحفظ على الفلاشة مباشرة دون وجود الملف

تم تعديل أبريل 15, 2012 بواسطه aimanano

[محمد ايمن]

اخي الكريم نارت ارجو منك معذرتي فقد اخذت مثالك و عدلت عليه

اخي الكريم ahmedeg_eg هذا المثال كما وعدتك

الحفظ مباشرة على الفلاش ميموري بدون وجود ملف hh.text

NA_BackUpToRemovableDrive1.rar

[أبو آدم]

جزيت خيراً أخي aimanano

ومن باب الفضول ... اذا كان متصلاً أكثر من فلاش ميموري ..!!؟؟

...........

[ahmedeg_eg]

جميل جدا بارك الله فيك

وجعله في ميزان حسناتك

[محمد ايمن]

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

[سامي الحربي]

احبتي الكرام

السلام عليكم ورحمة الله وبركاته

من خلال ماسبق كيف اجعل البرنامج يكون عند الفتح يقوم بحفظ ملف (sami) مثلا

الموجود على السيرفر إلى عدة اجهزة موجودة على الشبكة (يمكن تحديد 3 اجهزة مثلا) وذلك لضمان حفظ نسخة احتياطية للملف المطلوب (sami) على أكثر من موقع مختلف

تم تعديل أكتوبر 20, 2012 بواسطه سامي الحربي