بسم الله الرحمن الرحيم

                                                             التعامل مع الملفات و المجلدات

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"