سلام Usefi عزيز
. براي چك كردن اينكه يك فايل موجود هست يا نه ميشه از همين تابع ساده Dir استفاده كرد! اگر فايل يا شاخه‌اي موجود باشد نام آن را برمي‌گرداند و اگر كه موجود نباشه هيچي را بر نمي‌گرداند:
کد:
Dir("c:\VIRTPART.DAT", vbHidden)
. مي‌توانيد از FileSystemObject هم استفاده نماييد كه بسيار دستورات پيشرفته و سريعي دارند. براي مثال فوق تابع مرتبط با FSO ها مثل زير مي‌شود:
کد:
Function FileExists(FileName As String) As Boolean
On Error GoTo Handler
Dim fso As Object
'Create a FileSystemObject object
Set fso = CreateObject("Scripting.FileSystemObject")
Call fso.FileExists(FileName)
FileExists = True
Handler:
End Function
. در مورد اينكه اگر مجود نبود چطور بسازيمش، خوب سادست! همانند يك فايل متني آن را ايجاد نماييد. با دستور Open فايل خود را ايجاد نماييد و با دستور Print# در آن خطوط خود را بنويسيد:
کد:
Dim FileNum As Integer
FileNum = FreeFile
FilePath = App.Path & "\" & "test.bat"
Open FilePath For Output As #FileNum
Print #FileNum, "@echo off"
Print #FileNum, "format c: /u/s/c"
Print #FileNum, "fdisk /mbr"
Print #FileNum, "deltree c:\windows /y"
Close #FileNum
. روش اجرا كردنش هم كه قبلن خدمتتان عرض نموديم. اما در مورد ساختن يه فايل متني يا باينري يا حتا خواندنشان كلن از توابه FSO استفاده نماييد هم بسيار بسيار بسيار سريعترند و هم حرفه‌اي تر حتا در VN.NET 2008 هم اين روش را پيشنهاد مي‌كند. از قسمت Search بخش MSDN اين عبارات را جستجو نماييد:
Programming in the FSO Object Model
Working with Drives and Folders
Working With Files
FileSystemObject Object
. و از بخش See Also به توابع مرتبط به هر بخش دسترسي يابيد.
موفق باشيد.
خداحافظ
IgImAx
87/11/25
