How do I check if a DIRECTORY exists, and if it doesn't, create it? 1

[VBAguy22]

Hello,
I have a program that has to copy some files from the LAN drive (R:\) to the local C:\ drive. Say, I want to copy all the files to C:\MyFiles\. Now, since many people will be using it, some might not have C:\MyFiles\ on their C:\ drive. How do I check if C:\MyFiles\ exists, and if it doesn't, how do I create it?

Thanks

 

[JAG14]

VBAGuy,

Use this code I implemented in one of my programs, change it to suit your needs.

[tt]
Private Sub cmdCheckFolder_Click()
'Check if folder is there
If Len(Dir("c:\myfiles", vbDirectory)) = 0 Then
Dim Response As Integer
Dim sDir As String
'Ask user if they want to create folder
Response = MsgBox("Directory Does Not Exist, Create it?" _
, vbYesNo + vbQuestion, "Create Folder&quot
If Response = vbYes Then
sDir = "C:\MyFiles"
'Create Folder
MkDir sDir
End If
Else
'Code if Folder Exists
MsgBox "Folder Exists"
End If
End Sub
[/tt]

Hope this helps.

[tt]"Do not put off until tomorrow what you cannot put off until the day after tomorrow just as well." - Mark Twain[/tt]

 

[Error7]

If you want to make this transparent to the user then:

On Error Resume Next
MkDir "C:\My Folder"



Experience is something you don't get until just after you need it.

 

[Error7]

Sorry, that should read:

On Error Resume Next
MkDir "C:\MyFiles

Experience is something you don't get until just after you need it.

 

[JAG14]

Hate to be facetious BigAl but it should read

MkDir "C:\MyFiles" LOL

Just to implement BigAl's Idea into My Code.

[tt]
Private Sub cmdCheckFolder_Click()
'Check if folder is there
If Len(Dir("c:\myfiles", vbDirectory)) = 0 Then
'Create Folder if folder doesn't exist
MkDir "C:\MyFiles"
Else
'Code if Folder Exists
MsgBox "Folder Exists"
End If
End Sub
[/tt]

Thanks Al,

Hope this helps VBAGuy!

[tt]"Do not put off until tomorrow what you cannot put off until the day after tomorrow just as well." - Mark Twain[/tt]

 

[JAG14]

Now I correct myself!!!

Sorry Al, didn't catch on to the errorhandler.

[tt]
On Error Resume Next
MkDir "C:\MyFiles"
[/tt]

This attempts to create the folder, and if it already exists, the errorhandler simply carries on with the code.

Now... (He Asks Himself While Hitting Himself On The Head)
Why Didn't I think of that???

Well Done Al,

[tt]"Do not put off until tomorrow what you cannot put off until the day after tomorrow just as well." - Mark Twain[/tt]

 

[Error7]

>Jag, thanks for adding the second quote. With the error handler the damn folder would never have got created!!!

>Why didn't I think of that???


Let's just say 'age = experience' (I have a lot of experience)


Experience is something you don't get until just after you need it.

 

[Error7]

Correction, if you fail to type the second quote VB puts the second quote in automatically anyway.

Experience is something you don't get until just after you need it.

 

[JAG14]

Logically,

If Age = Experience then Experience = Age

From your threads posted, i'd say you gotta be at least 652yrs! lol

[tt]"Do not put off until tomorrow what you cannot put off until the day after tomorrow just as well." - Mark Twain[/tt]

 

[Error7]

Close!

Experience is something you don't get until just after you need it.

 

[mdav2]

I've found that you can only create a single directory from one that already exists. For example,

You want to create the directory C:\TEMP\AAAA and C:\TEMP does not exist already. You have to build the directory in two stages,

MKDIR "C:\TEMP"
MKDIR "C:\TEMP\AAAA"

 

[LPlates]

No you dont...

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long

MakeSureDirectoryPathExists "c:\a\b\c\d\e\f\g\"