新しいフォルダーを作成してファイルを配置する方法


0

ソフトのような「カバーフロー」の基準に一致させるために、フィルムディレクトリにあるfilm.aviとcover.jpgごとに特定のフォルダー(「name_of_the_film」という名前)を作成する必要があります。

今日:

d:/film/starwars.avi, 
d:/film/starwars2.avi
d:/film/starwars.jpg
d::film/starwars2.jpg

明日:

d:/film/starwars
d:/film/starwars/starwars.avi
d:/film/starwars/starwars.jpg 
d:/film/starwars2
d:/film/starwars2/starwars2.avi
d:/film/starwars2/starwars2.jpg 

これを自動的に行うことは可能ですか?

回答:


3

これを行うアプリは知りませんが、これを行うための短いPerlまたはPythonスクリプトを作成できます。次のperlスクリプトは、必要なことを行う必要があります。

use File::Copy;

my $baseDir = "D:/film/";

opendir my $dir, $baseDir or die "Cannot open directory: $!";
my @files = readdir $dir;

foreach my $file (@files)
{
  $fileName = $1 if ($file =~ /^(.*)\.[^\.]+$/i);
  mkdir("$baseDir/$fileName") unless (-d "$baseDir/$fileName");
  move("$baseDir/$file", "$baseDir/$fileName/$file");
}

perlがインストールされていると仮定して、このスクリプトをCreateMovieFolders.plとして保存perl CreateMovieFolders.plし、コマンドラインから実行します。


弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.