15 replies to this topic

[justusiv]

Here is what i have so far. Its a batch Par2 program. It recursivly searches for par2 files runs them then takes the appopriate approach when the outcome is known for the par2.

FileSelectFolder, OutputVar, , 3  ;This allows you to select what folder you will do a recursive search in later.
if OutputVar =   ;if cancelled it exits the script
	ExitApp
else
{
	Loop, %OutputVar%\*.par2, , 1   ;this is the loop that finds all the *.par2 files
	{
		IfNotInString, A_LoopFileFullPath, .vol   ;par files have vol files this excludes running any of the volume files
		{
			Run, %A_LoopFileFullPath% ;this runs the par2 fils from before
			loop
			{
				IfWinExist, QuickPar - All Data Verified  ;this happens if par2 is complete and no repair is needed
				{
					WinWait, QuickPar - All Data Verified
					WinActivate
					send !e  ;this will exit quickpar when it is done
					sleep, 250
					break
				}
				IfWinExist, QuickPar - Repair Succeeded  ;this happens if par2 is complete and the repair is done
				{
					WinWait, QuickPar - Repair Succeeded
					WinActivate
					send !e  ;this will exit quickpar when it is done
					sleep, 250
					break
				}
				IfWinExist, QuickPar - Need ;this happens if par2 is complete and the repair can not be completed. i would like to move the folder where the par2 is contained and all the files also
				{
				WinWait, QuickPar - Need
				WinActivate
				send !e   ;this will exit quickpar when it is done
				sleep, 250
;*********THIS IS WHERE I NEED HELP**********   ;quickpar exited so the files are not in use anymore
;I AM HAVING TROUBLE MAKING THIS HAPPEN
;C:\EXAMPLE\EXAMPLE\DOWNLOAD\THISDIR
;should be moved to
;C:\EXAMPLE\EXAMPLE\DOWNLOAD\INCOMPLETE\THISDIR
:*********END OF HELP SECTION************
				break
				}
			}
		}
	}
msgbox Completed recursive scan for all par2 files
}
return

[corrupt]

You're not going to be able to move the directory if the file(s) are in use and running (unless I'm misunderstanding)...

[justusiv]

I actually closed the quickpar after it finds out it doesnt have enough blocks to repair the files. No files or folders would be in use at the point where i added the comments.

send !e
            sleep, 250
;*********THIS IS WHERE I NEED HELP**********

the Send !e is what closes quick par.
If i need to commment my entire code i would be more then happy to. I actually decompiled it so i lost its comments

[corrupt]

If i need to commment my entire code i would be more then happy to. I actually decompiled it so i lost its comments

Yes please. I'm not sure I understand but it looks as though you are trying to move the entire directory conditionally when you are in the middle of parsing the files contained in it...

[justusiv]

I will comment the code really quick. But i kinda missed the important part of this program. It uses Quickpar to do all the par2 checking.


EDIT
Sorry i am not good at commenting : /

[jonib]

Hi justusiv

If I understood what you want this might help.

OutputVar=Download ; Path to scan
Loop, %OutputVar%\*.par2, , 1
{
	Loop, Parse, A_LoopFileDir , \ 
		ParDir=%A_LoopField% ; Get the last part of the path
	IfNotInString, A_LoopFileDir, \INCOMPLETE\ ; Check that the par2 file is not in the "INCOMPLETE" directory
	{
		FileMoveDir, %A_LoopFileDir%, %OutputVar%\INCOMPLETE\%ParDir% ; Move the dir to the "INCOMPLETE" directory
	}
}

[jonib]

1st part is working nicely
last tip ist not working does nothing

If the "last tip" is my code? how did you test it?

[jonib]

OK when you include my code the "OutputVar=Download ; Path to scan" line was not suppose to be included it was so I could test it.

I modified the FileMoveDir command so it would move the file even if the directory that the file was in already was in the INCOMPLETE directory.

Here is my code including the original code that works for me.

FileSelectFolder, OutputVar, , 3  ;This allows you to select what folder you will do a recursive search in later.
if OutputVar =   ;if cancelled it exits the script
   ExitApp
else
{
   Loop, %OutputVar%\*.par2, , 1   ;this is the loop that finds all the *.par2 files
   {
      IfNotInString, A_LoopFileFullPath, .vol   ;par files have vol files this excludes running any of the volume files
      {
         Run, %A_LoopFileFullPath% ;this runs the par2 fils from before
         loop
         {
            IfWinExist, QuickPar - All Data Verified  ;this happens if par2 is complete and no repair is needed
            {
               WinWait, QuickPar - All Data Verified
               WinActivate
               send !e  ;this will exit quickpar when it is done
               sleep, 250
               break
            }
            IfWinExist, QuickPar - Repair Succeeded  ;this happens if par2 is complete and the repair is done
            {
               WinWait, QuickPar - Repair Succeeded
               WinActivate
               send !e  ;this will exit quickpar when it is done
               sleep, 250
               break
            }
            IfWinExist, QuickPar - Need ;this happens if par2 is complete and the repair can not be completed. i would like to move the folder where the par2 is contained and all the files also
            {
            WinWait, QuickPar - Need
            WinActivate
            send !e   ;this will exit quickpar when it is done
            sleep, 250
;*********THIS IS WHERE I NEED HELP**********   ;quickpar exited so the files are not in use anymore
;OutputVar=Download ; Path to scan
Loop, %OutputVar%\*.par2, , 1
{
   Loop, Parse, A_LoopFileDir , \
      ParDir=%A_LoopField% ; Get the last part of the path
   IfNotInString, A_LoopFileDir, \INCOMPLETE\ ; Check that the par2 file is not in the "INCOMPLETE" directory
   {
      FileMoveDir, %A_LoopFileDir%, %OutputVar%\INCOMPLETE\%ParDir%, 2 ; Move the dir to the "INCOMPLETE" directory
   }
}
;*********END OF HELP SECTION************
            break
            }
         }
      }
   }
msgbox Completed recursive scan for all par2 files
}
return

Hope this helps.

jonib

[jonib]

Do you have an "INCOMPLETE" named directory in the same directory you choose to scan?

When I run the script it moves any directory in the scan directory with .par2 files to the INCOMPLETE directory.

jonib

[jonib]

My last complete code wont work correctly it would move all directory's containing .par2 files.

FileSelectFolder, OutputVar, , 3  ;This allows you to select what folder you will do a recursive search in later.
if OutputVar =   ;if cancelled it exits the script
   ExitApp
else
{
   Loop, %OutputVar%\*.par2, , 1   ;this is the loop that finds all the *.par2 files
   {
      IfNotInString, A_LoopFileFullPath, .vol   ;par files have vol files this excludes running any of the volume files
      {
         Run, %A_LoopFileFullPath% ;this runs the par2 fils from before
         loop
         {
            IfWinExist, QuickPar - All Data Verified  ;this happens if par2 is complete and no repair is needed
            {
               WinWait, QuickPar - All Data Verified
               WinActivate
               send !e  ;this will exit quickpar when it is done
               sleep, 250
               break
            }
            IfWinExist, QuickPar - Repair Succeeded  ;this happens if par2 is complete and the repair is done
            {
               WinWait, QuickPar - Repair Succeeded
               WinActivate
               send !e  ;this will exit quickpar when it is done
               sleep, 250
               break
            }
            IfWinExist, QuickPar - Need ;this happens if par2 is complete and the repair can not be completed. i would like to move the folder where the par2 is contained and all the files also
            {
            WinWait, QuickPar - Need
            WinActivate
            send !e   ;this will exit quickpar when it is done
            sleep, 250
;*********THIS IS WHERE I NEED HELP**********   ;quickpar exited so the files are not in use anymore
					 	Loop, Parse, A_LoopFileDir , \
								ParDir=%A_LoopField% ; Get the last part of the path
					 	IfNotInString, A_LoopFileDir, \INCOMPLETE\ ; Check that the par2 file is not in the "INCOMPLETE" directory
					 	{
								FileMoveDir, %A_LoopFileDir%, %OutputVar%\INCOMPLETE\%ParDir% ; Move the dir to the "INCOMPLETE" directory
						}
;*********END OF HELP SECTION************
            break
            }
         }
      }
   }
msgbox Completed recursive scan for all par2 files
}
return

This one should work better.

but is it doable to make a directory inside every folder that ist called incomplete ?

I don't know why not.
Try this.

FileSelectFolder, OutputVar, , 3  ;This allows you to select what folder you will do a recursive search in later.
if OutputVar =   ;if cancelled it exits the script
   ExitApp
else
{
   Loop, %OutputVar%\*.par2, , 1   ;this is the loop that finds all the *.par2 files
   {
      IfNotInString, A_LoopFileFullPath, .vol   ;par files have vol files this excludes running any of the volume files
      {
         Run, %A_LoopFileFullPath% ;this runs the par2 fils from before
         loop
         {
            IfWinExist, QuickPar - All Data Verified  ;this happens if par2 is complete and no repair is needed
            {
               WinWait, QuickPar - All Data Verified
               WinActivate
               send !e  ;this will exit quickpar when it is done
               sleep, 250
               break
            }
            IfWinExist, QuickPar - Repair Succeeded  ;this happens if par2 is complete and the repair is done
            {
               WinWait, QuickPar - Repair Succeeded
               WinActivate
               send !e  ;this will exit quickpar when it is done
               sleep, 250
               break
            }
            IfWinExist, QuickPar - Need ;this happens if par2 is complete and the repair can not be completed. i would like to move the folder where the par2 is contained and all the files also
            {
            WinWait, QuickPar - Need
            WinActivate
            send !e   ;this will exit quickpar when it is done
            sleep, 250
;*********THIS IS WHERE I NEED HELP**********   ;quickpar exited so the files are not in use anymore
					 	Loop, Parse, A_LoopFileDir , \
								ParDir=%A_LoopField% ; Get the last part of the path
					 	IfNotInString, A_LoopFileDir, \INCOMPLETE ; Check that the par2 file is not in the "INCOMPLETE" directory
					 	{
					 			FileCreateDir, %A_LoopFileDir%\INCOMPLETE
								FileMove, %A_LoopFileDir%\*, %A_LoopFileDir%\INCOMPLETE\ ; Move the files to the "INCOMPLETE" directory
						}
;*********END OF HELP SECTION************
            break
            }
         }
      }
   }
msgbox Completed recursive scan for all par2 files
}
return

jonib