move 1 file into a new folder

[augustspies]

hi everyone,

I have a folder w/ say 10 .jpg or .txt files. I would like to take 1 file at a time and create a new folder starting with # 1,2,3,etc to move it into.

currently i am able to move ALL files in a folder into another directory using filemove. but i would just like to move 1 and then create incremental folder names

here is an example of what i'm trying to do:

source\ randomname.jpg to \1\randomname.jpg

source\ randomname.jpg to \2\randomname.jpg

etc

i tried piecing this together but not sure how to get it finished and working. Any help would be greatly appreciated!

$sourceFolder = @ScriptDir & "\source"
$destination = @ScriptDir & "\destination" ;UNSURE WHAT TO PUT HERE TO GET THE INCREMENTAL FOLDER NAME

$folderlist = _FileListToArray($sourceFolder)

$numberoffiles = $folderlist[0]

MsgBox(0,"","There are " & $numberoffiles & " to be moved.")

If $numberoffiles = 0 Then
    MsgBox (0,"","No Files Found.")
    Exit
EndIf

For $i = 1 to $numberoffiles Step 1

    $oldfolder = $sourceFolder & "\" & $folderlist[$i]
    $newfolder = $destination & "\" & ;UNSURE WHAT TO PUT HERE TO GET THE INCREMENTAL FOLDER NAME & "\.jpg"

    FileMove($oldfolder, $newfolder)
Next

MsgBox (0,"","Moved a total of " & $numberoffiles)

[bogQ]

#Include <File.au3>
$sourceFolder = @ScriptDir & "\source"
$destination = @ScriptDir & "\destination" ;UNSURE WHAT TO PUT HERE TO GET THE INCREMENTAL FOLDER NAME

$folderlist = _FileListToArray($sourceFolder)

$numberoffiles = $folderlist[0]

MsgBox(0,"","There are " & $numberoffiles & " to be moved.")

If $numberoffiles = 0 Then
    MsgBox (0,"","No Files Found.")
    Exit
EndIf

For $i = 1 to $numberoffiles Step 1
    $oldfolder = $sourceFolder & "\" & $folderlist[$i]
    $newfolder = $destination & "\" &$i& "\" ;<--
    FileMove($oldfolder, $newfolder, 8+1);<--
Next

MsgBox (0,"","Moved a total of " & $numberoffiles)

Edited March 16, 2011 by bogQ

[augustspies]

#Include <File.au3>
$sourceFolder = @ScriptDir & "\source"
$destination = @ScriptDir & "\destination" ;UNSURE WHAT TO PUT HERE TO GET THE INCREMENTAL FOLDER NAME

$folderlist = _FileListToArray($sourceFolder)

$numberoffiles = $folderlist[0]

MsgBox(0,"","There are " & $numberoffiles & " to be moved.")

If $numberoffiles = 0 Then
    MsgBox (0,"","No Files Found.")
    Exit
EndIf

For $i = 1 to $numberoffiles Step 1
    $oldfolder = $sourceFolder & "\" & $folderlist[$i]
    $newfolder = $destination & "\" &$i& "\" ;<--
    FileMove($oldfolder, $newfolder, 8+1);<--
Next

MsgBox (0,"","Moved a total of " & $numberoffiles)

OMG! thank you very much!! really that was all i needed huh? I appreciate the help