اگر مثلا sina.txt وجود داشت برنامه بسته بشه واگر وجود نداشت بسته نشه

[sinashahab]

لطفا با نمونه کار بزارید :تشویق::تشویق:

[f.nabavi]

قبل از استفاده از مسیر: project->references ، گزینه Microsoft scripting runtime رو فعال کنید.

Private Sub Command1_Click()
Dim fso1 As New FileSystemObject
If fso1.FileExists("C:\sina.txt") = True Then End
End Sub

[اوبالیت به بو]

If Dir("Path") = "FileName" Then
MsgBox "Found"
Else
MsgBox "Not Found"
End If

Path: آدرس دقيق فايل هست با پسوند.
FileName: فقط اسم فايل هست با پسوند.

وبراي كار شما:

If Dir("C:\sina.txt ") = "sina.txt " Then End