[REQ] Moving files to a new subfolder

z3us · Post by **z3us** » 2011-02-04 18:19:15

Actually I have all my videofiles in a folder. I want to move each file to a individual subfolder named with the translated title
How can I do that?
Thanks

Post by **antp** » 2011-02-04 22:02:01

You can try to make something based on what I made for that user:
viewtopic.php?t=4460

z3us · Post by **z3us** » 2011-02-05 00:49:00

Taking into account that I use field source for path, I have this:

Code: Select all

program NewScript;
var
  source, newsource, root, folder, newfolder: string;
begin
  source := GetField(fieldSource);
  folder := ExtractFilePath(source);
  root := ExtractFilePath(Copy(folder, 1, Length(folder) - 1));
  newsource := folder + GetField(fieldTranslatedTitle) + ExtractFileExt(source);
  if MoveFile(source, newsource) then
  begin
    SetField(fieldSource, newsource);
    source := newsource;
    newfolder := root + GetField(fieldTranslatedTitle) + '_' + GetField(fieldYear);
    if MoveFile(Copy(folder, 1, Length(folder) - 1), newfolder) then
    begin
      newsource := newfolder + '\' + ExtractFileName(source);
      SetField(fieldSource, newsource);
    end;
  end;
end.

But I have a issue: I have the films in a folder named films:
c:\videos\films\1.avi
c:\videos\films\2.mkv
...
this script is renaming this folder, so:
c:\videos\1\1.avi

and what I want is to create a subfolder where the video file is:
c:\videos\films\1\1.avi

What should I change in the script?

Thanks

Post by **antp** » 2011-02-06 22:31:53

I stupidly only put functions for files and not for folders... so the script cannot create folders with a dedicated function for that

What could be done is a first pass to create all the folders using
Launch('cmd.exe', '/c md ' + folderName);
where foldername contains the full path (e.g. 'c:\videos\films\1')
Then a second pass to move the files into the folders.
Problem is that both cannot be done in 1 pass, as the script will not wait that the contains of "Launch" command has finished before processing the next line.
As alternative you could put a wait time (sleep) between the launch and the move.

z3us · Post by **z3us** » 2011-12-29 21:56:21

I want
translated title (year)

instead of
translated title_year

How do I modify the script?
Thanks

z3us · Post by **z3us** » 2011-12-29 22:05:20

Sorry, it was easy

program NewScript;
var
source, newsource, root, folder, newfolder: string;
begin
source := GetField(fieldSource);
folder := ExtractFilePath(source);
root := ExtractFilePath(Copy(folder, 1, Length(folder) - 1));
newsource := folder + GetField(fieldTranslatedTitle) + ExtractFileExt(source);
if MoveFile(source, newsource) then
begin
SetField(fieldSource, newsource);
source := newsource;
newfolder := root + GetField(fieldTranslatedTitle) + ' (' + GetField(fieldYear) + ')';
if MoveFile(Copy(folder, 1, Length(folder) - 1), newfolder) then
begin
newsource := newfolder + '\' + ExtractFileName(source);
SetField(fieldSource, newsource);
end;
end;
end.