生成されたPDFをネットワークドライブの新しいフォルダに移動

Question

PDFファイルを実行して作成するマクロがあります。マクロが実行されるたびに、PDFが生成されます。私は、レポートの最後のバージョン（1日3回実行）をフォルダタイトル「過去のレポート」に移動したいと思います。私は以下のスクリプトで遊んでいますが、それは私のためには機能しません。アクティブレポートフォルダには、作成された最新のPDFのみが含まれます。

誰でも助けてもらえますか？必要に応じてさらに情報を追加することを嬉しく思います。

Public Sub transferFile() 
On Error GoTo nextIt 

Set fileSystemObject = CreateObject("Scripting.FileSystemObject") 
PDFPath = "D:\####\Pinging Program\Active Report\" 
pastPDFPath = "D:\####\Pinging Program\Past Reports" 
sSourceFile = PDFPath & Dir(PDFPath & "*.pdf") 
sDestinationFile = "D:\####\Pinging Program\Past Reports" 

'move file 
If Dir(sSourceFile) <> "" Then 
    fileSystemObject.moveFile sSourceFile, sDestinationFile 
End If 

nextIt: 

End Sub 

Answer 1

宛先フォルダに最終スラッシュがありません。将来の提案として、Victorが提案したようにエラー処理をバイパスしていなければ、エラーをもっと分かりやすくすることができました。あなたのコードは次のようになります：

Public Sub transferFile() 


Set fileSystemObject = CreateObject("Scripting.FileSystemObject") 
PDFPath = "C:\test\Active Report\" 
pastPDFPath = "C:\test\Past Reports" 
sSourceFile = PDFPath & Dir(PDFPath & "*.pdf") 
sDestinationFile = "C:\test\Past Reports\" 

'move file 
If Dir(sSourceFile) <> "" Then 
    fileSystemObject.moveFile sSourceFile, sDestinationFile 
End If 

End Sub 

私はそれをテストして、期待通りに動作しました。よろしく、