يه سوال کوچولو در مورد فايلها...

[Arash_XL7710i_207]

يه کد ميخوام که يه فايلي در يه جاي دلخواه بسازه و دفعه بعدي که بخواهيم دوباره فايلي رو در همون مسير بسازيم چک کنه و در صورت بودن فايل يه پيغام بده.

[Romina2006]

Dim filename As String
Private Sub Command1_Click()
Static checkfile As Boolean
CommonDialog1.ShowSave
filename = CommonDialog1.filename
If checkfile = False Then Call DoesFileExist(filename)
End Sub

Public Function DoesFileExist(filename As String) As Boolean
DoesFileExist = Dir(filename) <> ""
If DoesFileExist Then
MsgBox "It does exist!", vbExclamation, "Does Exist"
Else
Open filename For Random As #1
Close #1
End If
End Function