Code to create directory

[StevenD]

Hi,

I need some code to create a path (directory).

Any ideas?

 

[Von Pookie]

Sub test()
Dim fs As Object, FolderName As String

'Get name from user
FolderName = InputBox("Enter a name for the new folder:")

'cancel button clicked (or 'ok' clicked when no name entered)
If FolderName = "" Then Exit Sub

Set fs = CreateObject("Scripting.FileSystemObject")

'creates folder with specified name on the C drive
fs.createfolder ("C:\" & FolderName)

End Sub

 

[Norie]

Steve

Just use the MkDir function.