在我的代碼,我得到了以下錯誤消息的VBScript:意外的標識
c:\dpdata_copy2.vbs(114,13) Microsoft VBScript compilation error: Expected identifier
線114分,以一個空行,所以我assuemd它是在下面的行拋出一個錯誤:
Lastprop = f.DateLastModified
在代碼
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
strFolderName = "D:\1\production\Openjobs"
Set colSubfolders = objWMIService.ExecQuery _
("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _
& "Where AssocClass = Win32_Subdirectory " _
& "ResultRole = PartComponent")
'variables for getting last accessed property
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
For Each objFolder in colSubfolders
'get last modified date
Set f = fs.GetFolder(objFolder.Name)
Lastprop = f.DateLastModified
'MsgBox(Lastprop)
if (DateDiff("m", f.DateLastModified, Now()) > 4) then
diffindates = DateDiff("m", f.DateLastModified, Now())
Set objShell = CreateObject("Shell.Application")
Set objCopyFolder = objShell.NameSpace(ParentFolder)
OutputToLog("rem " & f.DateLastModified & ":" & objFolder.Name)
outputtolog("move /Y """ & objFolder.Name & """ " & ParentFolder)
wscript.echo(diffindates & ":" & objFolder.Name & vbCr)
end if
Next
任何想法?還是應該將整個劇本發佈?
什麼objFolder更換呢?它的名稱屬性是否有值? – 2009-01-26 17:14:50
文件夾是否存在? – Glennular 2009-01-26 17:16:54
objFolder是「for each」循環中的對象鍵。在這種情況下,「對於Colsubfolders中的每個objFolder」和colsubfolders = objWMIService.ExecQuery(「{Win32_Directory.Name ='」&strFolderName&「'}」&「Where AssocClass = Win32_Subdirectory」和{「ResultRole = PartComponent」)的關聯者) – phill 2009-01-26 17:18:19