يه کد ميخوام که يه فايلي در يه جاي دلخواه بسازه و دفعه بعدي که بخواهيم دوباره فايلي رو در همون مسير بسازيم چک کنه و در صورت بودن فايل يه پيغام بده.
Printable View
يه کد ميخوام که يه فايلي در يه جاي دلخواه بسازه و دفعه بعدي که بخواهيم دوباره فايلي رو در همون مسير بسازيم چک کنه و در صورت بودن فايل يه پيغام بده.
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