بسم الله الرحمن الرحيم
التعامل مع الملفات و المجلدات
1-نسخ ملف :
"FileCopy "c:\1.txt", "d:\1.txt
2-نقل ملف :
"Name "c:\1.txt" As "d:\1.txt
3-إعادة تسمية ملف :
"Name "c:\1.txt" As "c:\2.txt
4-حذف ملف :
"Kill "c:\1.txt
5- حذف مجموعة ملفات
"Kill "c:\*.txt
وبهذا الأمر حذفنا كل الملفات التي تحمل الامتداد txt
بداخل القرص :C
6- البحث عن الملفات :
ضع علي الفورم listbox وزر أمر واكتب في زر الأمر الكود التالي
Private Sub Command1_Click()
Dim Fname As String
Fname = Dir$("e:\Windows\*.exe")
Do While Len(Fname)
List1.AddItem Fname
Fname = Dir$
Loop
End Sub
عند الانتهاء سيقوم البرنامج بإيجاد جميع الملفات ذات الامتداد exe والتي تقع داخل مجلد الويندوز
ووضعها في listbox
7- تغيير خصائص الملف :
SetAttr "Path", vbHiddenلإخفائه
SetAttr "Path", vbReadOnly لجعله للقراءة فقط
SetAttr "Path", vbArchive لجعله أرشيفا
8- إنشاء مجلد:
MkDir "c:\1"
9-حذف مجلد :
RMDir "c:\1"