Question

Sub Copy_Files_Dates()
'This example copy all files between certain dates from FromPath to ToPath.
'You can also use this to copy the files from the last ? days
'If Fdate >= Date - 30 Then
'Note: If the files in ToPath already exist it will overwrite
'existing files in this folder
    Dim FSO As Object
    Dim FromPath As String
    Dim ToPath As String
    Dim Fdate As Date
    Dim FileInFromFolder As Object

    FromPath = "C:\Users\Ron\Data"  '<< Change
    ToPath = "C:\Users\Ron\Test"    '<< Change

    If Right(FromPath, 1) <> "\" Then
        FromPath = FromPath & "\"
    End If

    If Right(ToPath, 1) <> "\" Then
        ToPath = ToPath & "\"
    End If

    Set FSO = CreateObject("scripting.filesystemobject")

    If FSO.FolderExists(FromPath) = False Then
        MsgBox FromPath & " doesn't exist"
        Exit Sub
    End If

    If FSO.FolderExists(ToPath) = False Then
        MsgBox ToPath & " doesn't exist"
        Exit Sub
    End If

    For Each FileInFromFolder In FSO.getfolder(FromPath).Files
        Fdate = Int(FileInFromFolder.DateLastModified)
        'Copy files from 1-Oct-2006 to 1-Nov-2006
        If Fdate >= DateSerial(2006, 10, 1) And Fdate <= DateSerial(2006, 11, 1) Then
            FileInFromFolder.Copy ToPath
        End If
    Next FileInFromFolder

    MsgBox "You can find the files from " & FromPath & " in " & ToPath

End Sub

我收到错误

line 1
char 9
error expected end of statement
code 800A0401

Answer 1

将Dim name As Something更改为Dim name：

Dim FSO As Object
    Dim FromPath
    Dim ToPath
    Dim Fdate
    Dim FileInFromFolder

    ' *snip*

而Next FileInFromFolder只是Next。

For Each FileInFromFolder In FSO.getfolder(FromPath).Files
    Fdate = Int(FileInFromFolder.DateLastModified)
    'Copy files from 1-Oct-2006 to 1-Nov-2006
    If Fdate >= DateSerial(2006, 10, 1) And Fdate <= DateSerial(2006, 11, 1) Then
        FileInFromFolder.Copy ToPath
    End If
Next

这看起来像你试图用作VBS的VB6片段。 VB6和VBS之间存在一些细微差别，需要注意这些差异。

我修复了这些并且它似乎运行没有错误，虽然我实际上没有测试它是否正确复制文件。

在VBS中复制文件时出错

1 个答案: