السلام عليكم
ممكن المساعدة في كود لنقل المجلد بما فية من محتويات الي قسم اخر من الهادسك وبدون ضهور اي رسال
مع العلم لحاجتي الماسة لهذا الكود وشكراً لوسع صدركم
السلام عليكم
نقل مجلد بما فية من محتويال الي قسم اخر في الهاردسل وليس نسخة
السلام عليكم...
من القائمة Project اختر الأمر References، ثم في نافذة المراجع ابحث عن Microsoft Scripting Runtime و قم باختياره ثم انقر OK.
استخدم الكود التالي لنقل المجلد:
- Private FS As New Scripting.FileSystemObject
- Private Sub Command1_Click()
- Dim FolderPath As String
- Dim MyFolder As Scripting.Folder
- Dim DesFolderPath As String
- FolderPath = "oldpathfoldername"
- DesFolderPath = "newpathfoldername"
- Set MyFolder = FS.GetFolder(FolderPath)
- MyFolder.Move DesFolderPath
- Set MyFolder = Nothing
- MsgBox "OK"
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- Set FS = Nothing
- End Sub
عليك تحديد المسار السابق للمجلد بما في ذلك اسم المجلد في نهاية المسار، و كذلك اسم المجلد نفسه في نهاية المسار الهدف.
يستحسن في مثل هذه الحالات استعمال مصيدة أخطاء (On Error GoTo) لتفادي الأخطاء التي قد تقع عند محاولة النقل.
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
شكراً ياستاذ najy_zl
وبارك الله فيك بس يحدث عندي خطئ عند تنفيذ الامر ولخطئ يحدث في الجملة 11 اعلا
ياريت تقدم لي الحل ودزاك الله خير
اخوك مفتاح اسحاتي
السلام عليكم...
أولاً: الرجاء التأكد من صحة المسارين (المصدر و الهدف)، مثلاً لنقل المجلد "Folder05" من المسار "D:\Folder10\Folder20" إلى المجلد "D:\Folder88\Folder99" يجب أن يكون المسار المصدر (المشار إليه في الكود بالمتغير FolderPath) كالتالي:
- D:Folder10Folder20Folder05
و المسار الهدف (المشار إليه في الكود بالمتغير DesFolderPath) كالتالي:
- D:Folder88Folder99Folder05
ثانياًً: تأكد من وجود المجلد الهدف (الذي تريد النقل إليه).
ثالثاً: ربما يحتوي المجلد المراد نقله على ملفات أو مجلدات تحمل السمة "للقراءة فقط" (Read only) لأني لم أجربه مع مثل هذه الملفات و إنما جربته مع وجود ملفات عادية داخل المجلد المنقول و قد عمل الكود بنجاح.
رابعاً: يا ليتك أرفقت ردك الأخير بنص رسالة الخطأ لتكون المسألة واضحة.
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم