التعامل مع الملفات

التعامل مع الملفات في الفيجوال بيسك

ٍسأقوم بشرح بعض دوال التعامل مع الملفات المبنية في الفيجوال بيسك

FileCopy

الشكل العام:

FileCopy Source,Destination

حيث Source:اسم الملف الأصلي المراد نسخه ومساره

Destination: اسم الملف المنسوخ و مساره

مثال:

FileCopy "c:\Text.txt", "c:\Text1.txt"

ملاحظة: في حال لم تقم بإدخال المسار فإن الفيجوال بيسك يقوم بالبحث عن الملف المطلوب في المجلد الافتراضي فإن وجده قام بنسخه وإلا عاد بالخطأ File Not Found

نستطيع معرفة المجلد الاقتراضي من خلال الأمر Curdir

مثلاً: Curdir msgbox

لتغيير القرص الافتراضي نكتب chdrive("d") مثلاً

ولتغيير المجلد الافتراضي نكتب chdir(/MyFiles) مثلاً

Dir

نستخدم هذه الدالة لمعرفة فيما اذا كان الملف موجود, فاذا كان الملف موجوداً عادت الدالة باسمه دون مساره وإلا عادت الدالة ب ""

مثال:

Private Sub Command1_Click()

Dim Ret As String

Ret = Dir$("C:\a.txt")

If Ret = "a.txt" Then

MsgBox "File already exists"

Else

MsgBox "File Not Found"

End If

End Sub

----By The-Dr-----

to be continued