Easy routine to check/create directories

Posted: 2002-06-01
By: ArchiveBot
Viewed: 67

Filed Under:

VB6 Code Cache

No attachments for this post

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

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.