MKDir not working

[Robert_L_Ross]

Here's my code:

UNITFOLDER = "G:\A F S\Monthly Reports\HiPath\CS\"
FILENAME = "MONTHLYC_"
NEWDIRECTORY = UNITFOLDER & RPTRUNDATE
If Dir(UNITFOLDER & RPTRUNDATE) = Null Then
MkDir (NEWDIRECTORY)
End If

Not sure why it's not working. It won't create the folder and I get an
error later. RPTRUNDATE is a variable (string) set earlier that in my
example I'm using "060206" as the string. I want it to first check if "G:\A
F S\Monthly Reports\HiPath\CS\060206" exists. If it doesn't, I want it to
create the folder. If it does exist, just keep going (earlier in the code I
delete any files in the directory).

Anyone have any idea why it's not working?

THX

 

[RB Smissaert]

You will have to check if UNITFOLDER exists as you can't make
a new folder in non-existent folder. In other words you can't make
4 or 5 folders in one go, only one at a time.

RBS

 

[JMB]

From one of Dave Peterson's old posts (which he reposted from Jim Rech). I
believe this API will create the folder and subfolders all in one go:


Declare Function MakePath Lib "imagehlp.dll" Alias _
"MakeSureDirectoryPathExists" (ByVal lpPath As String) As Long


Sub Test()
MakeDir "c:\aaa\bbb"
End Sub


Sub MakeDir(DirPath As String)
If Right(DirPath, 1) <> "\" Then DirPath = DirPath & "\"
MakePath DirPath
End Sub

 

[RB Smissaert]

Thanks for the tip.

RBS

From one of Dave Peterson's old posts (which he reposted from Jim Rech).
I
believe this API will create the folder and subfolders all in one go:


Declare Function MakePath Lib "imagehlp.dll" Alias _
"MakeSureDirectoryPathExists" (ByVal lpPath As String) As Long


Sub Test()
MakeDir "c:\aaa\bbb"
End Sub


Sub MakeDir(DirPath As String)
If Right(DirPath, 1) <> "\" Then DirPath = DirPath & "\"
MakePath DirPath
End Sub