我用于将文件从源复制到目标的代码工作正常,我尝试做的只是复制文件,如果它们是较新的文件或具有不同的名称。文件名示例 abc1.txt 和下周这将被替换为 abc2.txt 的源文件夹 这是 VB 脚本代码。
`
Dim intFCount, FSO, strSrcFolder, strDestFolder, strSource, FC, i, intPercentComplete
i = 0
intFCount = 0
intPercentComplete = 0
Set FSO = CreateObject("Scripting.FileSystemObject")
strSrcFolder = "\\server\DATA\Production\RUM\"
strDestFolder = "E:\DATA\Production\test\"
set strSource = FSO.GetFolder(strSrcFolder)
set FC = strSource.Files
for each file in FC
intFCount = intFCount + 1
Next
For Each file in FC
FSO.CopyFile file, strDestFolder
i = i + 1
Next
2. I was able to find some progress bar vbs or hta script but struggling to incorporate my copy script to display the progress.
Here is the progress bar .hta script found on the net
<html>
<head>
<title id="title">ProgressBar 2.1</title>
<HTA:APPLICATION ID="porgbar" APPLICATIONNAME="progbartest">
<script language="vbscript">
Public x,y, MyTitle, iTimerID, KeepGoing
Sub Window_Onload
MyTitle = document.Title
id("ProgBarToDo").innerText = String(80, "_") & "|"
window.ResizeTo 720, 200
x=0
y=35
End Sub
Sub Go
'---FOR TEST ONLY---
Set fso = CreateObject("Scripting.FileSystemObject")
Set oof = fso.CreateTextFile("testpb.vbs", True)
oof.WriteLine "wscript.sleep WScript.Arguments(0)"
oof.Close
Set WshShell = CreateObject("WScript.Shell")
'----END OF TEST ONLY----
Progress(1)
Do Until x=y
x=x+1
WshShell.Run "testpb.vbs 250",1,True '----FOR TEST ONLY
If KeepGoing = False Or window.screenTop > 10000 Then
Exit Do
End If
Loop
Progress(0)
End Sub
Sub Progress(v)
Select Case v
Case 0
window.clearInterval(iTimerID)
iTimerID =""
id("BtnGo").disabled = False
id("BtnCancel").disabled = True
id("BtnExit").disabled = False
Progress(2)
MsgBox "Operation finished.",,MyTitle
Case 1
iTimerID = window.setInterval("Progress(2)", 500)
id("BtnGo").disabled = True
id("BtnCancel").disabled = False
id("BtnExit").disabled = True
KeepGoing = True
Progress(2)
Case 2
document.Title = FormatPercent(x/y, 0) & MyTitle
id("ProgBarText").innerText = x & "/" & y
d = Round( x / (y/80) ,0)
id("ProgBarDone").innerText = String(d, "_")
If d<80 Then
id("ProgBarToDo").innerText = String(80-d, "_") & "|"
Else
id("ProgBarToDo").innerText = "|"
End If
End Select
End Sub
Function id(o)
Set id = document.getElementById(o)
End Function
Sub Help
MsgBox "This is an example of progressbar in HTA written by Fredledingue.",,MyTitle
End Sub
</script>
</head>
<body bgcolor="GreenYellow">
<input id="BtnGo" type="button" value="Go" onclick="Go">
<input id="BtnCancel" type="button" value="Cancel" onclick="KeepGoing=False" disabled="True">
<input id="BtnExit" type="button" value="Exit" onclick="window.close">
<input id="BtnHelp" type="button" value="Help" onclick="Help">
<br>
Done: <span id="ProgBarText">?</span><br>
<span id="ProgBarDone" style="background-color:blue"></span>
<span id="ProgBarToDo" style="background-color:silver"></span>
</body>
</html>
`
非常感谢任何帮助。非常感谢,SS
在 msdn 上也找到了一些比较代码,但如果没有将 abc2.txt 从服务器复制到本地驱动器,我需要检查服务器上是否存在文件 abc1.txt。这是代码
enter code here Option Explicit
Dim objFSO, wshShell
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set wshShell = CreateObject("Wscript.Shell")
'----------------------------------------------------------------------------------------------------------------------------
On Error Resume Next
ProcessScript
If Err.Number <> 0 Then
Wscript.Quit
End If
On Error Goto 0
'----------------------------------------------------------------------------------------------------------------------------
'Name : ProcessScript -> Primary Function that controls all other script processing.
'Parameters : None ->
'Return : None ->
'----------------------------------------------------------------------------------------------------------------------------
Function ProcessScript
Dim localFile, serverFile
Dim localFileVersion, serverFileVersion
localFile = "C:\rsccc2k\login\login.exe"
serverFile = "\\destiny\Install\RSCCC\login.exe"
If objFSO.FileExists(localFile) Then
If Not GetFileVersion(localFile, localFileVersion) Then
Exit Function
End If
If objFSO.FileExists(serverFile) Then
If Not GetFileVersion(serverFile, serverFileVersion) Then
Exit Function
End If
End If
If StrComp(localFileVersion, serverFileVersion, vbTextCompare) <> 0 Then
On Error Resume Next
wshShell.Run "\\destiny\Install\RSCCC\RSCCCInstall.bat", 0, true
On Error Goto 0
End If
End If
End Function
'----------------------------------------------------------------------------------------------------------------------------
'Name : GetFileVersion -> Enumerates the version number of a file.
'Parameters : fileSpec -> Input : Folder path and file name for the file to enumerate the version number from.
' : fileVersion -> Output : The file version number of input parameter "fileSpec".
'Return : GetFileVersion -> Returns False or True and the version number of the file.
'----------------------------------------------------------------------------------------------------------------------------
Function GetFileVersion(fileSpec, fileVersion)
GetFileVersion = False
On Error Resume Next
fileVersion = objFSO.GetFileVersion(fileSpec)
If Len(fileVersion) = 0 Or Err.Number <> 0 Then
Exit Function
End If
On Error Goto 0
GetFileVersion = True
End Function