How to Create directory from text field

[jerijeri]

I need to create a large number (2500+) of directories on my computer.

I have a text field that will consist of rows of data like:

atlanta
los_angeles
detroit
new_york

I'm reading these in from a text file.

I'm trying to figure out the code that will read each line in the text field and create a directory based on each line. i.e. e:\files\atlanta , e:\files\los_angeles , e:\files\detroit , e:\files\new_york


If possible I'd also like it save a blank file called data.txt in the created directory.

Any help welcomed.

Thanks,

Jeri

 

[vbSun]

mkDir "e:\files\" & text1.text

You may also want to check if directory exists.. can you do that?

Sunil

 

[jerijeri]

I'm afraid that's not working:


I have

Dim dirname variant

MkDir "e:\files\" & dirname & "\data.txt"

I get a path not found error. Which makes sense, since I'm trying to create the path.

There are two parts to the question. I need to:

1. figure out how to read each line in the text box
2. create the directory in my e:\files directory.

I'm a complete newbie to VB 6.

Thanks.

Jeri

 

[vbSun]

Answering the parts..

First Part

Dim arr() As String
Dim i As Integer
arr = Split(Text1.Text, vbNewLine)

For i = 0 To UBound(arr)
Debug.Print arr(i)
Next


Second Part

Now, the MkDir command is for making a directory. Not a file. To create a file inside a new directory, first issue the MkDir to create the directory, and then create the file inside the folder with the file Open Statement..