vbscript - 古いファイルと新しいファイルをチェックし、何も存在しない場合はvbscriptで作成します

Question

そのため、Windows 用のスクリプトを作成して、ユーザーの古い Outlook プロファイルと新しい Outlook プロファイルの両方が存在するかどうかを確認しようとしています。古いものが存在し、新しいものが存在しない場合、古いものをコピーして新しいファイル名を付けます。

私は構文の一般的な考えを持っています。このようになります。

If Exist \users\%%UserName%%\%%OldFileName%% 

   If NOT Exist \users\%%UserName%%\%%NewFileName%% 

      copy \users\%%UserName%%\%%OldFileName%%  \users\%%UserName%%\%%NewFileName%% 

   End If

End If

更新しました！
これが私がこれまでに思いついたものです。

Dim objFSO

Set objFSO = CreateObject("Scripting.FileSystemObject")

        strOldFileName = “Default Outlook Profile.NK2”
        strNewFileName = “Default Profile.NK2”

    If objFSO.FileExists "\\comfilesrv1\users\%%UserName%%\&OldFileName&" Then
        objFSO.CopyFile "\\comfilesrv1\users\%%UserName%%\&OldFileName&", "\\comfilesrv1\users\%%UserName%%\&NewFileName&"
    End If

私は誰かにこれを書いてほしいと頼んでいるわけではありませんが、誰かが私を正しい方向に向けることができれば、それは素晴らしいことです.

Answer 1

これを試して

Dim objFSO, strOldFileName, strNewFileName, strOldProfile, strNewprofile, bOverwrite

Set objFSO = CreateObject("Scripting.FileSystemObject")
bOverwrite = true

strOldFileName = "Default Outlook Profile.NK2"
strNewFileName = "Default Profile.NK2"

strOldProfile = "\\comfilesrv1\users\" & UserName & "\" & strOldFileName
strNewprofile = "\\comfilesrv1\users\" & UserName & "\" & strNewFileName

If objFSO.FileExists(strOldProfile) Then
  objFSO.CopyFile strOldProfile, strNewprofile, bOverwrite
End If