• Home
 · 
• Files/File Controls/Input/Output
 · 
• Check for existing Directories/Folders

Check for existing Directories/Folders

Check if that directory exists before running the risk of an error and/or data loss. One of the few that really works. No API, no function calls. Existence check and logic included. Incredibly simple.

Side Effects
None known

Rate Check for existing Directories/Folders

• 1
• 2
• 3
• 4
• 5

(11(11 Vote))

'By Jim Sivage 
'
'ISO Global
'http://www.isoglobal.com
'
'
'Make f$ equal to folder you're testing.
'
f$ = "C:\WINDOWS"
dirFolder = Dir(f$, vbDirectory)
If dirFolder <> "" Then
 strmsg = MsgBox("This folder already exists.", vbCritical):goto optout
End If
'directory exists action here
optout: