Create Directory Function?

Chris · Mar 8th, 2002, 09:16 AM

Hi,
I want to write a macro that creates directories. I want to create about 200 directories that are named based on the loop definitions.
Is there a way to automate this task?

dk · Mar 8th, 2002, 09:30 AM

When you say 'loop definition' I assume you want folder names like Name 1, Name 2 and so on. Give this a go:-

Code:

Sub CreateDirectories()
Dim lngFileNum As Long
For lngFileNum = 1 To 200
    MkDir "C:tempNew Folder " & lngFileNum
Next
End Sub

Hope it helps,
D

[ This Message was edited by: dk on 2002-03-08 08:30 ]

Chris · Mar 8th, 2002, 11:04 AM

That helps!

thanks

Mar 8th, 2002, 09:30 AM	#2
dk MrExcel MVP Join Date: Feb 2002 Location: Sydney, Australia Posts: 2,908	When you say 'loop definition' I assume you want folder names like Name 1, Name 2 and so on. Give this a go:- Code: Sub CreateDirectories() Dim lngFileNum As Long For lngFileNum = 1 To 200 MkDir "C:tempNew Folder " & lngFileNum Next End Sub Hope it helps, D [ This Message was edited by: dk on 2002-03-08 08:30 ]

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 8th, 2002, 09:16 AM	#1
Chris New Member Join Date: Mar 2002 Posts: 25	Hi, I want to write a macro that creates directories. I want to create about 200 directories that are named based on the loop definitions. Is there a way to automate this task?

Mar 8th, 2002, 11:04 AM	#3
Chris New Member Join Date: Mar 2002 Posts: 25	That helps! thanks