0

だから私は少し助けが必要です、私はまだvbscriptに慣れていません。さまざまな種類のファイルが100を超えるディレクトリがありますが、正しいタイムスタンプのファイルのみを別のディレクトリに移動したいと考えています。

ファイルの命名規則は次のとおりです。stuff-11012013-042567.txt、タイムスタンプが一致するファイルのみを移動したいと思います。

私は次のようにスクリプトを開始しましたが、ファイル名内の特定の文字列を見つけて一致させる方法に固執しています。すべてのファイルを一度に移動するには、一致する結果を変数に設定する必要がありますか？

'Create file object system and declare to variable
 Set objFSO=CreateObject("Scripting.FileSystemObject")
'Get source and destination folders, set source and destination folder paths to variables
Set sfldr=objFSO.getFolder("in")
Set dfldr=objFSO.getFolder("out")

'Check to see if source folder Exists
If objFSO.FolderExists("in\") Then

   'Check to see if there are existing files on destination folder
   If dFldr.files.count = 0 Then

     If sfldr.files.count < 6 then
        msgbox("Need more files!")
     ElseIf sfldr.files.count > 6 then
        msgbox("Too many files, please double check for consistency")
     Else

         'Enter loop to move all files from source directory to destination directory
          for each file in sfldr.files
              objFSO.MoveFile "in\*", "out"
          Next
     End If
  Else
    msgbox("Files already Exists on Destination Folder. Please Check files!")
  End If
Else
    msgbox("Source path does not exist")
End If
4

1 に答える 1

1

ループ内Forで、各ファイルの名前を確認し、それをどうするかを決定する必要があります。

タイムスタンプが常にファイル名の同じ位置にある場合は、Mid()関数を使用できます。位置が異なる場合は、 を使用できますInstr()。

于 2013-01-16T20:16:01.123 に答える