Datetime VB脚本重命名文件添加日期&；该点名了？

基本代码：由Ekkehard.Horner和我改编 我 建立 这个 代码， 谢谢大家。尺寸、频率、sFile Dim goFS:Set goFS=CreateObject（“Scripting.FileSystemObject”） Dim oSrcDir:Set oSrcDir=goFS.GetFolder（“C:\Temp1”） Dim sDstDir:sDstDir=“C:\Temp2” 文件尺寸、nInc、sNFSpec

Set oShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject") 
Set f = fso.GetFolder("C:\Temp1") 
Set fc = f.Files  

frequency  = 10 * 1000 
Const cnMax = 99


WScript.Sleep frequency

 theDate = Year(Now()) _
       & Right(String(2,"0") & month(Now()),2) _ 
       & Right(String(2,"0") & Day(Now()),2) 


 For Each f1 in fc 
  If right(lcase(f1.name),4) = ".pdf" then 
 theBaseName = fso.GetBaseName(f1.name)
 theExtension = fso.GetExtensionName(f1.Name) 
 f1.Move(fso.GetParentFolderName(f1.path) & "\" & theBaseName & "_" & EID & "_"    &          theDate & "." & theExtension) 
  End If
  Next

 For Each oFile In oSrcDir.Files
 If right(lcase(oFile.name),4) = ".pdf" Then 
  nInc = 0
  sNFSpec = getNewFSpec(oFile.Name, sDstDir, nInc)
  Do While goFS.FileExists(sNFSpec) And nInc <= cnMax
     sNFSpec = getNewFSpec(oFile.Name, sDstDir, nInc)
 Loop
If nInc > cnMax Then
  Else
   oFile.Move sNFSpec
End If

End If
Next
Wend

}





Dim oShell, frequency, sFile
Dim goFS    : Set goFS    = CreateObject("Scripting.FileSystemObject")
Dim oSrcDir : Set oSrcDir = goFS.GetFolder("C:\Temp1")
Dim sDstDir : sDstDir     = "C:\Temp2"
Dim oFile, nInc, sNFSpec

Set oShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject") 
Set f = fso.GetFolder("C:\Temp1") 
Set fc = f.Files  

frequency  = 10 * 1000 
Const cnMax = 99


WScript.Sleep frequency

 theDate = Year(Now()) _
       & Right(String(2,"0") & month(Now()),2) _ 
       & Right(String(2,"0") & Day(Now()),2) 


 For Each f1 in fc 
  If right(lcase(f1.name),4) = ".pdf" then 
 theBaseName = fso.GetBaseName(f1.name)
 theExtension = fso.GetExtensionName(f1.Name) 
 f1.Move(fso.GetParentFolderName(f1.path) & "\" & theBaseName & "_" & EID & "_"    &          theDate & "." & theExtension) 
  End If
  Next

 For Each oFile In oSrcDir.Files
 If right(lcase(oFile.name),4) = ".pdf" Then 
  nInc = 0
  sNFSpec = getNewFSpec(oFile.Name, sDstDir, nInc)
  Do While goFS.FileExists(sNFSpec) And nInc <= cnMax
     sNFSpec = getNewFSpec(oFile.Name, sDstDir, nInc)
 Loop
If nInc > cnMax Then
  Else
   oFile.Move sNFSpec
End If

End If
Next
Wend

}

Set oShell=CreateObject（“WScript.Shell”）
设置fso=CreateObject（“Scripting.FileSystemObject”）
Set f=fso.GetFolder（“C:\Temp1”）
设置fc=f.文件
频率=10*1000
常数cnMax=99
睡眠频率
日期=年（现在（））_
&右（字符串（2，“0”）&month（Now（）），2）
&右（字符串（2，“0”）&天（Now（）），2）
对于fc中的每个f1
如果正确（lcase（f1.name），4）=“.pdf”，则
theBaseName=fso.GetBaseName（f1.name）
theExtension=fso.GetExtensionName（f1.Name）
f1.Move（fso.GetParentFolderName（f1.path）&“\”&theBaseName&“\u”&EID&“\u”&theDate&“&theExtension）
如果结束
下一个
对于oSrcDir.Files中的每个文件
如果正确（lcase（oFile.name），4）=“.pdf”，那么
nInc=0
sNFSpec=getNewFSpec（oFile.Name、sDstDir、nInc）
当goFS.FileExists（sNFSpec）和nInc cnMax存在时执行此操作
其他的
oFile.移动sNFSpec
如果结束
如果结束
下一个
温德
}
尺寸、频率、sFile
Dim goFS:Set goFS=CreateObject（“Scripting.FileSystemObject”）
Dim oSrcDir:Set oSrcDir=goFS.GetFolder（“C:\Temp1”）
Dim sDstDir:sDstDir=“C:\Temp2”
文件尺寸、nInc、sNFSpec
设置oShell=CreateObject（“WScript.Shell”）
设置fso=CreateObject（“Scripting.FileSystemObject”）
Set f=fso.GetFolder（“C:\Temp1”）
设置fc=f.文件
频率=10*1000
常数cnMax=99
睡眠频率
日期=年（现在（））_
&右（字符串（2，“0”）&month（Now（）），2）
&右（字符串（2，“0”）&天（Now（）），2）
对于fc中的每个f1
如果正确（lcase（f1.name），4）=“.pdf”，则
theBaseName=fso.GetBaseName（f1.name）
theExtension=fso.GetExtensionName（f1.Name）
f1.Move（fso.GetParentFolderName（f1.path）&“\”&theBaseName&“\u”&EID&“\u”&theDate&“&theExtension）
如果结束
下一个
对于oSrcDir.Files中的每个文件
如果正确（lcase（oFile.name），4）=“.pdf”，那么
nInc=0
sNFSpec=getNewFSpec（oFile.Name、sDstDir、nInc）
当goFS.FileExists（sNFSpec）和nInc cnMax存在时执行此操作
其他的
oFile.移动sNFSpec
如果结束
如果结束
下一个
温德
}

最简单的解决方案是从另一个脚本运行任务，该脚本本身运行“永远”（抽象）

建议的解决方案也可以集成到现有脚本中：

'...

While True
  For Each oFile In oSrcDir.Files
    '...
  Next
  WScript.Sleep 30000 'milliseconds
Wend

'...

另一种变体是使用无条件的

Do。。。循环

而不是

，而为True。。。Wend

：

'...

Do
  For Each oFile In oSrcDir.Files
    '...
  Next
  WScript.Sleep 30000 'milliseconds
Loop

'...

---

确实非常感谢你们的回答，同时我在其他地方找到了第二个脚本，全部由我自己完成；）但是剧本现在已经进化了，如果有人能帮上忙，那就太好了。。。下面的VBScript仅每隔10秒查找一次PDF文件，如果找到，他将重命名所有PDF文件，并根据名称列添加日期和在DB index.mdb的表索引中找到的外部ID。当我输入SQL查询“test”时，它工作正常，但使用相同的EID重命名每个PDF文件，因此外部ID。我想首先帮助检查index.mdb是否存在，如果存在，然后获取每个文件的外部ID，并相应地重命名每个文件。实际上，脚本不断发展，最好在同一页上跟踪该脚本…Ansgar，我知道db是否存在，我所需要的只是在SQL语句中定义一个变量来相应地更改每个文件。每个文件都有相同的外部ID。。。所以每个文件都已经存在一个For，但我无法将它放在SQL语句中代替NAME。。。

'...

Do
  For Each oFile In oSrcDir.Files
    '...
  Next
  WScript.Sleep 30000 'milliseconds
Loop

'...