Solved: macro to create a directory

[cmefly]

Hi,

how do i write a macro to create a directory on my H: drive?

specificall, a folder called "data extractor"

thanks,

marc

[cmefly]

Better yet....
how do you go about writing code for:

"if the directory called "data extractor" does not exist....create it....."

[Ken Puls]

Hi Marc,

The simple code to do it is:

[vba]MkDir "H:\data extractor"[/vba]

I only say simple, as you may want to implement some error handling in case it already exists. Like:

[vba]Sub CreateDirectory()
On Error Resume Next
MkDir "H:\data extractor"
If Err.Number <> 0 Then MsgBox "Directory exists!"
On Error GoTo 0

End Sub[/vba]

Cheers,

[Ken Puls]

You're too fast! Use the second option. It will accomplish what you're after!

[cmefly]

Awesome!!! just Awesome!!

thank you!

[Ken Puls]

You're welcome,

Now you get VBAX lesson 2, though!

See up the top of the thread, there's a Thread Tools menu? You can jump in there and mark your own threads solved. Another slick tool developed by our board coders!

Cheers,

[NAW]

This recursively creates directories - eg:

NW_MkDir("C:\The\Quick\Brown\Fox\Jumped\Over\The\Lazy\Dog")

Function NW_MkDir(NewFolderPath As String) As Boolean
  On Error Resume Next
  NW_PATH = Split(NewFolderPath, "\")
  For Each NW_FOLDER In NW_PATH
      NW_FOLDERS = NW_FOLDERS & "\" & NW_FOLDER
 '    MsgBox Mid(NW_FOLDERS, 2, 999)
      MkDir (Mid(NW_FOLDERS, 2, 999))
  Next
  If Dir(NW_FOLDER, 16) = "" Then
     NW_MkDir = False
  Else: NW_MkDir = True
  End If
End Function

[snb]

Wrong timing (15 years), wrong method (recursion), wrong code.