Question

所以我正在尝试编写一个Windows脚本来检查并查看用户是否存在旧的和新的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

检查旧文件和新文件，如果vbscript不存在则创建一个

1 个答案: