This very simple routine avoid checking if a correct path already
exist before using it and, if not, create it exactly as you want.
Imagine you wont to write a log file in a path defined as:
C:MyapplicServiceslogsLOG.TXT
you must check before if the directory Myapplic exist and
then check all other subdirectory (Service,logs) before opening the
file For Output. Probably you will use a lot of Error Resume Next, Mkdir(…),
Error GoTo 0, dir(….) and so.
Instead you can use this routine as described below:
Myfile=”C:MyapplicServiceslogsLOG.TXT”
Call CheckDir(Myfile)
nf=FreeFile()
Open Myfile For Output As #nf
.
.
.
Close #nf
and including the following .bas module:
Public Sub CheckDir(file)
Ix = 4 ‘Initial index
KSlash = InStr(1, file, “”, 1) ‘Search for first “”
For Cnt = 1 To Len(file) ‘Run until discover
‘other directories
KSlash = InStr((KSlash + 1), file, “”, 1)
If KSlash = 0 Then Exit For ‘Last slash
dir1 = Left(file, (KSlash – 1))
cdir1 = Mid(dir1, Ix)
Ix = Ix + Len(cdir1) + 1
hh = Dir(dir1, vbDirectory)
‘If Directory doesn’t exist, create it
If StrComp(hh, cdir1, 1) <> 0 Then
MkDir (dir1)
End If
Next Cnt
End Sub
Original Author: Italo ALFIERI
API Declarations
Code
Public Sub CheckDir(file)
Ix = 4 'Initial index
KSlash = InStr(1, file, "", 1) 'Search for first ""
For Cnt = 1 To Len(file) 'Run until discover
'other directories
KSlash = InStr((KSlash + 1), file, "", 1)
If KSlash = 0 Then Exit For 'Last slash
dir1 = Left(file, (KSlash - 1))
cdir1 = Mid(dir1, Ix)
Ix = Ix + Len(cdir1) + 1
hh = Dir(dir1, vbDirectory)
'If Directory doesn't exist, create it
If StrComp(hh, cdir1, 1) <> 0 Then
MkDir (dir1)
End If
Next Cnt
End Sub