Wolfram言語™

再帰的にディレクトリ内を検索する

FileSystemMapは，通常指定のディレクトリ内のファイルすべてを評価する．

In[1]:=

dir = FileNameJoin[{$InstallationDirectory, "SystemFiles", "SpellingDictionaries"}];

In[2]:=

Length[Keys[FileSystemMap[FileByteCount, dir]]]

Out[2]=

FileNameFormsを使うと，FileSystemMapの特定パターンでファイルを選ぶことができる．

In[3]:=

FileSystemMap[FileByteCount, dir, FileNameForms -> "*en*"]

Out[3]=

In[4]:=

FileSystemMap[FileByteCount, dir, FileNameForms -> "*en*"]; Length[Keys[%]]

Out[4]=

FileSystemScanをFileNameFormsと一緒に使って，タイトルに「Date」が含まれるドキュメントページすべてを新しいディレクトリにコピーする．

In[5]:=

targetDir = CreateDirectory[FileNameJoin[{$TemporaryDirectory, "new"}]]; docsDir = FileNameJoin[{$InstallationDirectory, "Documentation", "English", "System", "ReferencePages", "Symbols"}];

In[6]:=

copy[file_] := CopyFile[file, FileNameJoin[{targetDir, FileNameTake[file, -1]}]]

In[7]:=

FileNames["*", targetDir]

Out[7]=

In[8]:=

FileSystemScan[copy, docsDir, Infinity, FileNameForms -> "*Date*.nb"]

In[9]:=

FileNames["*", targetDir]

Out[9]=

これらのファイルは，FileSystemScanを使って削除することができる．

In[10]:=

FileSystemScan[DeleteFile, targetDir]

In[11]:=

FileNames["*", targetDir]

Out[11]=