Question

下面的代码在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

Answer 1

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

使用Replace函数替换SubString值

1 个答案: