تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
أكواد التعامل مع الملفات
#1
كاتب الموضوع : 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")

ترقبوا المزيد
}}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم