+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : أكواد التعامل مع الملفات (/showthread.php?tid=6044)
أكواد التعامل مع الملفات - RaggiTech - 17-10-12
كاتب الموضوع : 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")
ترقبوا المزيد