0

下面的代码在 test 文件夹中查找超过 5 天未访问的任何文件，如果找到，它会为 mRoot 分配文件路径，然后什么不工作正在使用 Replace 方法在 mRoot 字符串中查找 IP并用新的替换它，我让它在弹出窗口中显示 mRoot 的样子，以确保它改变（或不改变）。我似乎无法更改IP。任何人都可以帮忙吗？我对 VBS 很陌生，所以我希望这是显而易见的（无论它是否可行）。谢谢。

Set oFileSys = WScript.CreateObject("Scripting.FileSystemObject")

sRoot = "\\192.168.1.104\test\" 


today = Date 
Set aFolder = oFileSys.GetFolder(sRoot)
Set aFiles = aFolder.Files      
    For Each file in aFiles
        FileAccessed = FormatDateTime(file.DateLastAccessed, "2")
        If DateDiff("d", FileAccessed, today) > 5 Then
           Set objShell = Wscript.CreateObject("Wscript.Shell")
            mRoot = file
            Call Replace(mRoot,"\\192.168.1.104","\\192.168.1.105")
            objShell.Popup mRoot,, "My Popup Dialogue box"
           'oFileSys.MoveFile file, mRoot
        End If
    Next
4

1 回答 1

2

尝试mRoot = Replace(mRoot,"\\192.168.1.104","\\192.168.1.105")

于 2013-11-06T04:33:59.203 回答