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

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

"Robert_L_Ross" wrote in message
...
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

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" wrote:

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

"Robert_L_Ross" wrote in message
...
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

Thanks for the tip.

RBS

"JMB" wrote in message
...
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" wrote:

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

"Robert_L_Ross" wrote in message
...
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