ساختن یک فایل txt با کد و چک کردن فایل

[once4ever]

چجوری میشه داخل کد یک فایل تکست درست کرد (برای log کردن کارها) و چجوری میشه چک کرد که فایل وجود داره یا نه (که رو همون فایل قبلی درست نکنه)

[smderfan]

از کد زیر استفاده کن .... فکر کنم همون موردی هست که گفته بودید...


Set fs = Application.FileSearch
With fs
.lookin = "C:\"
.filename = "testfile.txt"
If .Execute > 0 Then
MsgBox "فایل مورد نظر قبلا ایجاد شده است."
Else
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.txt", True)
a.WriteLine ("This is a test.")
a.Close
End If
End With
موفق باشید.

[once4ever]

خیلی به موقع بود.
ممنون

[HAMRAHSOFT.IR]

مشه یک نمونه بزارید