Exit loop

[david1337]

Hi guys

I got help creating this little script that moves all content (folders and files) from A to B

It works perfect, but I just realized that it never exits the loop.

So anything below the "WEnd" is not being processed.

Does anyone have a suggestion?

Thanks

$source = 'C:\folderA'
$dest = 'C:\folderB'


FileMove($source & "\*.*", $dest, 1) ;Move all source files first
$hSearch = FileFindFirstFile($Source & "\*.*") ;Now find any remaining (in this case: folders)
if $hSearch = -1 then exit ;No folders
While 1
$hFilename = FileFindNextFile($hSearch)
if @ERROR then exitloop ;No more files
DirMove($source & "\" & $hFilename, $Dest,1);move subdir and all contents to new location
WEnd

[kylomas]

david1337,

The loop does have an exit point.  Please read the Help file for FileFindNextFile.

kylomas

[david1337]

david1337,

The loop does have an exit point.  Please read the Help file for FileFindNextFile.

kylomas

 

Hi kylomas

Thanks for answering.

Yeah it does have an exit point, but it's not working as expected.

I'm trying to figure out why. Okay I will read about FileFindNextFile and see if that helps me in any way.

[fbar]

it has an exit loop on error or carnt find file

if you dont want it to loop

remove wend

or add

exitloop befor wend

i hope this helps

when do you need the script to exit

what the problem with this script

[kylomas]

david1337,

My fault, I misunderstood you to mean that there was no exit point.

I think your FileMove is wrong.  Does'nt operand 2 have to be a folder followed by a filename/pattern?

kylomas

edit: I know this doesn't answer your question but is something that is wrong.

Edited March 31, 2015 by kylomas

[kylomas]

david1337,

The following works on my system with the dir struct setup in the code.  See the comments for FileMove...

$source = 'K:\TestA'
$dest = 'K:\TestB'

; create test files--------------------------------------
for $1 = 1 to 3
    filewrite($source & '\File # ' & $1,$1)
Next
dircreate($source & '\TestASubA')
for $1 = 1 to 3
    filewrite($source & '\TestASubA' & '\File # ' & $1,$1)
Next
; -------------------------------------------------------

FileMove($source & "\*.*", $dest & '\*.*', 9) ;   <  ----- dest need file pattern and changed to create dir if not present
$hSearch = FileFindFirstFile($source & "\*.*") ;Now find any remaining (in this case: folders)
If $hSearch = -1 Then Exit msgbox(0,'','No files') ;No folders
While 1
    $hFilename = FileFindNextFile($hSearch)
    If @error Then ExitLoop ;No more files
    DirMove($source & "\" & $hFilename, $dest, 1);move subdir and all contents to new location
WEnd
ConsoleWrite('Done' & @CRLF)

kylomas

[kylomas]

david1337,

Can't you just use DirMove?  Per the Help file...

DirMove
Moves a directory and all sub-directories and files.

[david1337]

 

david1337,

Can't you just use DirMove?  Per the Help file...

DirMove
Moves a directory and all sub-directories and files.

DirMove just moves folderA under folderB, which is not what I want. I only want the content of folderA.

[david1337]

david1337,

The following works on my system with the dir struct setup in the code.  See the comments for FileMove...

$source = 'K:\TestA'
$dest = 'K:\TestB'

; create test files--------------------------------------
for $1 = 1 to 3
    filewrite($source & '\File # ' & $1,$1)
Next
dircreate($source & '\TestASubA')
for $1 = 1 to 3
    filewrite($source & '\TestASubA' & '\File # ' & $1,$1)
Next
; -------------------------------------------------------

FileMove($source & "\*.*", $dest & '\*.*', 9) ;   <  ----- dest need file pattern and changed to create dir if not present
$hSearch = FileFindFirstFile($source & "\*.*") ;Now find any remaining (in this case: folders)
If $hSearch = -1 Then Exit msgbox(0,'','No files') ;No folders
While 1
    $hFilename = FileFindNextFile($hSearch)
    If @error Then ExitLoop ;No more files
    DirMove($source & "\" & $hFilename, $dest, 1);move subdir and all contents to new location
WEnd
ConsoleWrite('Done' & @CRLF)

kylomas

 

I will test it right away!

[david1337]

it has an exit loop on error or carnt find file

if you dont want it to loop

remove wend

or add

exitloop befor wend

i hope this helps

when do you need the script to exit

what the problem with this script

 

Hi fbar

All I want it to do is to move all content from folderA to folderB, and then continue the script.

So I want to be able to put some code in under the existing code.

[david1337]

Okay I did some testing and found out exactly what the problem was.

It's only when there is no content in folderA (when the script is executed), that it doesn't continue the script after the WEnd statement.

Does this help anyone?

$source = 'C:\folderA'
$dest = 'C:\folderB'


FileMove($source & "\*.*", $dest, 1) ;Move all source files first
$hSearch = FileFindFirstFile($Source & "\*.*") ;Now find any remaining (in this case: folders)
if $hSearch = -1 then exit ;No folders
While 1
$hFilename = FileFindNextFile($hSearch)
if @ERROR then exitloop ;No more files
DirMove($source & "\" & $hFilename, $Dest,1);move subdir and all contents to new location
WEnd

Edited March 31, 2015 by david1337

[david1337]

I managed to solve this pretty easy.

I just used this script instead. No loops to worry about.

#include <Process.au3>

_RunDOS("xcopy C:\folderA C:\folderB /E /I") ;Copies ALL content from "folderA" to "folderB"

_RunDOS ("rmdir /s /q C:\Test\folderA") ;Deletes source folder + all content

DirCreate("C:\Test\folderA") ;Creates source folder again



; So basically what this script does is to move all content from folderA to folderB