• Home
 · 
• Files/File Controls/Input/Output
 · 
• Check file existence and attributes

Check file existence and attributes

Check the existence of a file and it's attributes (DateCreated, DateLastModified, DateLastAccessed)

Inputs
Path and file name.

Assumes
You must have a textbox called txtFileName, two command buttons called cmdFileExist and cmdFileAttributes.

Rate Check file existence and attributes

• 1
• 2
• 3
• 4
• 5

(5(5 Vote))

Private Sub cmdFileExist_Click()
 Dim FSO, _
  FileName As String, _
  DoExist As Boolean
 
 Set FSO = CreateObject("Scripting.FileSystemObject")
 FileName = txtFileName
 DoExist = FSO.FileExists(FileName)
 MsgBox DoExist, , "Check Existence"
End Sub

Private Sub cmdFileAttributes_Click()
 Dim FSO, F
 Dim FileName As String
 
 FileName = txtFileName
 Set FSO = CreateObject("Scripting.FileSystemObject")
 Set F = FSO.GetFile(FileName)
 MsgBox "Created : " & F.DateCreated & Chr(13) & _
   "Last Modified : " & F.DateLastModified & Chr(13) & _
   "Last Accessed : " & F.DateLastAccessed, , "Check Attributes"
End Sub