1

好的问题我在发布我的代码之前遇到了......我收到了这个错误

错误：需要对象；'objDIR' 代码：800A01A8 在第 19 行

当我使用跳过它时，当On Error Resume Next and On Error GoTo 0我跳过它Error Object required: 'strFile' Line 22时，它告诉我我的最后一个 NEXT 不是一个集合......这是程序运行良好的东西，直到我添加了获取 .tif 和 .tiff 文件的步骤。现在，即使我删除了我添加的内容，它也不起作用......

该程序的功能是在“源目录”中搜索可归档的文件，然后将这些文件移动到“目标目录”，然后将它们检查为不可归档，这样它们就不会再次被拾取。它还记录了使用日期戳等复制了哪些文件。就像我说的那样，它工作得很好，但经过几个小时的修补后，无法弄清楚出了什么问题......

Option Explicit

Dim objLogFile, objFS, strFolder, strDestination, objFolder, eFolder, strFileName,  
strExtension, objDIR, strFile

Set objFS = CreateObject("Scripting.FileSystemObject")
strFolder = "S:\Source"
strDestination = "Z:\Destination"
Set objFolder = objFS.GetFolder(strFolder)
Set objLogFile = objFS.OpenTextFile ("S:\Log.txt",2,true)

Go(objFolder)

Sub Go(objDIR)
    objLogFile.Writeline "Script started at " & Now
    If objDIR <> "\System Volume Information" Then
        For Each eFolder In objDIR.SubFolders       
            Go eFolder
        Next
        On Error Resume Next
        For Each strFile In objDIR.Files
            On Error GoTo 0
            strFileName = strFile.Name
            strExtension = objFS.GetExtensionName(strFile)
            If strExtension = "pdf" Then
                If objFS.GetFile(strFile).Attributes And 32 Then
                    objFS.CopyFile strFile , strDestination & strFileName, True
                    objLogFile.Writeline "Copied " & strFileName & Now
                Else
                    objFS.GetFile(strFile).Attributes =          objFS.GetFile(strFile).Attributes XOR 32
                End If
            End If              
            If strExtension = "tif" Then
                If objFS.GetFile(strFile).Attributes And 32 Then
                    objFS.CopyFile strFile , strDestination & strFileName, True
                    objLogFile.Writeline "Copied " & strFileName & Now
                Else
                    objFS.GetFile(strFile).Attributes = objFS.GetFile(strFile).Attributes XOR 32
                End If      
            End If
            If strExtension = "tiff" Then
                If objFS.GetFile(strFile).Attributes And 32 Then
                    objFS.CopyFile strFile , strDestination & strFileName, True
                    objLogFile.Writeline "Copied " & strFileName & Now
                Else
                    objFS.GetFile(strFile).Attributes = objFS.GetFile(strFile).Attributes XOR 32
                End If                  
            End If
        Next  
        objFS.GetFile(strFile).Attributes = objFS.GetFile(strFile).Attributes XOR 32
    End If
    objLogFile.Writeline "Script ended at " & Now
    objLogFile.close

    WScript.Quit()
End Sub
4

2 回答 2

1

要解决您的现实问题，您应该考虑：

  1. 使用 xcopy 或 robycopy 等工具
  2. 避免遍历不应包含用户文件的（子）文件夹；不扫描c:\windows或C:\System Volume Information会降低风险并提高效率
  3. 一些dir /s /b c:\can\di\date\*.tiff >> process-later.txt可以提供一个“干净”的文件列表来处理你的 .vbs

有一个明显的错误：你试图避免C:\System Volume Information，但你比较\System Volume Information（没有驱动器）。

不那么明显的是：你不能使用

On Error Resume Next
 For Each strFile In objDIR.Files
On Error GoTo 0

'跳过讨厌的元素的循环'。OERN 只是不能那样工作。

于 2013-10-17T20:55:17.240 回答
0

我修复了代码...不确定到底出了什么问题，但我清理了脚本，它又可以工作了。这是其他人可能需要的代码。

Set objFS = CreateObject("Scripting.FileSystemObject")
strFolder = "S:\Source"
strDestination = "Z:\Destination\"
Set objFolder = objFS.GetFolder(strFolder)
Set objLogFile = objFS.OpenTextFile ("S:Logs.txt",2,true)

Go(objFolder)

Sub Go(objDIR)
    objLogFile.Writeline "Script started at " & Now
    If objDIR <> "\System Volume Information" Then
        For Each eFolder In objDIR.SubFolders       
        Go eFolder
    Next
    For Each strFile in objDIR.files
        strFileName = strFile.Name
        strExtension = objFS.GetExtensionName(strFile)
        If strExtension = "pdf" Then
            If objFS.GetFile(strFile).Attributes And 32 Then
                objFS.CopyFile strFile , strDestination & strFileName, True
                objLogFile.Writeline "Copied " & strFileName & Now
                objFS.GetFile(strFile).Attributes = objFS.GetFile(strFile).Attributes XOR 32
            End If
        End If              
        If strExtension = "tif" Then
            If objFS.GetFile(strFile).Attributes And 32 Then
                objFS.CopyFile strFile , strDestination &     strFileName, True
                objLogFile.Writeline "Copied " & strFileName & Now
                objFS.GetFile(strFile).Attributes =     objFS.GetFile(strFile).Attributes XOR 32
            End If      
        End If
        If strExtension = "tiff" Then
            If objFS.GetFile(strFile).Attributes And 32 Then
                objFS.CopyFile strFile , strDestination &     strFileName, True
                objLogFile.Writeline "Copied " & strFileName & Now
                objFS.GetFile(strFile).Attributes =     objFS.GetFile(strFile).Attributes XOR 32
            End If                  
        End If
    Next  
End If
objLogFile.Writeline "Script ended at " & Now
objLogFile.close

WScript.Quit()
End Sub
于 2013-10-22T12:16:48.360 回答