automatically create directories and move files

Hi,
I'm using VB6 SP3 on an NT 4. I need to create 100 directories. The names of these directories can be just Dir001, Dir002, Dir003, .........., Dir099, Dir100. How can I create them automatically?
After that I've to move around 8,000 files into these directories according to their filenames. How can I do this using VB? thanks you very much!! :p

For directories, i think it's easy but to tidy your files, i don't know yet!

for your directories, try this:

Code:

---

Dim Index as Integer

For Index=1 To 100
  If Index<10 Then
      Mkdir ("Dir0" & Index)
  Else: MkDir ("Dir" & Index)
  End If
Next

---

How do you want to tidy your files (in relation to the directories ? :confused:

[Edited by (B2F)Tom on 07-11-2000 at 05:13 AM]

Oh thanks!
I'm able to create the directories.
and I think i'll be able to manage the files using to FileCopy Statement. Thanks for your help! :D