منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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


نقل ملف:
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")

ترقبوا المزيد