17-10-12, 02:44 PM
كاتب الموضوع : sniperser
بسم الله الرحمن الرحيمهذه مجموعة أكواد للتعامل مع الملفات
نقل ملف:
Private Sub Command1_Click()
Name "c:\Autoexec.bat" As "D:\Autoexec.bat"
End Sub
تغيير سمة الملف لـ مخفي ، للقراءة فقط أو عادي:
Private Sub Command1_Click()
Name "c:\Autoexec.bat" As "D:\Autoexec.bat"
End Sub
حجم الملف بالبايت :
Private Sub Command1_Click()
Print FileLen("c:\Autoexec.bat")
End Sub
حذف ملف :
Private Sub Command1_Click()
Kill ("C:\FileName.txt")
End Sub
نسخ ملف:
Private Sub Command1_Click()
FileCopy "c:\Autoexec.bat", "d:\Autoexec.bat"
End Sub
إنشاء ملف جديد :
Private Sub Command1_Click()
open "c:\FileName.txt" for append as #1
Print #1,"مرحبا هذا هو الملف الجديد"
Close #1
End Sub
إنشاء مجلد:
Mkdir("New Folder")
ترقبوا المزيد