特定のファイルを除くすべてのファイルをvbscriptフォルダに移動する

Question

vbscriptを使用してすべてのファイルを別のフォルダに移動しようとしていますが、どういうわけか、それを正しく取得できないようです。私は自分のコードを実行しましたが、私が作成したフォルダに移動したくないファイル名もあります。これで私を助けることができますか？

Set objFSO = CreateObject("Scripting.FileSystemObject") 

Set objFolder = objFSO.GetFolder("C:\Users\Users\Desktop\Other Files\Excel 
Files") 

If objFolder.Name <> "TestResults.xlsx" Then 

objFSO.Movefile "C:\Users\Users\Desktop\Other Files\Excel Files\*", 
"C:\Users\Users\Desktop\Sample Folder" 

End If 

Answer 1

私は私のコードを実行してきましたが、私はしたくないファイル名には、私が作成したフォルダに移動します。

そのあなたが使用しているため、すべてのファイルを移動しているので、*

If objFolder.Name <> "TestResults.xlsx"のようなあなたのコードを持ついくつかの問題は、あなたのオブジェクトは、フォルダのみを指していてもあります。

は、その後、あなたはすべてのファイルを移動 - あなたは

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFSO.GetFolder("C:\Users\Users\Desktop\Other Files\Excel Files").Files 

For Each objFile In objFolder 
    If objFile.Name <> "TestResults.xlsx" Then 
     objFSO.MoveFile objFile.Path, "C:\Users\Users\Desktop\Sample Folder\" 
    End If 
Next