Question

我的源文件位置中的所有文件都已被复制目标文件夹。我怎么能复制然后删除2个文件只有我的 datefrom = 12/07/2014和我的 dateto = 12/09/2014。

filename：修改日期
file1 12/07/2014
file2 12/09/2014
file3 01/06/2015

这是我的代码。

    Dim ObjFso 
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Dim StrSourceLocation
    Dim StrDestinationLocation
    Dim StrSourceFileName  
    dim SourceLocation
    dim DestinationLocation
    dim datefrom, dateto, datectr
    datefrom = DateValue("01/01/2015")
    dateto = DateValue("01/01/2015")

    datefrom = InputBox ("date from: (mm/dd/yyyy)")
    dateto = InputBox ("date to: (mm/dd/yyyy)")
    StrSourceLocation = InputBox ("source:")
    StrDestinationLocation = InputBox ("destination:")

    datectr = datefrom
    dateto = dateto
    intYear=0
    intMonth=0
    indDay=0
    intFileCtr=0
    intFileDayCtr=0


    SourceLocation = StrSourceLocation + "\*.*"
    DestinationLocation = StrDestinationLocation + "\"

    Const OverwriteExisting = True

    Do Until datectr>dateto

    intYear=Year(datectr)
    intMonth=Month(datectr)
    intDay=Day(datectr)


    for each f in objFSO.Getfolder(StrSourceLocation).Files

    if Year(f.DateLastModified) = intYear And Month(f.DatelastModified) = intMonth And Day(f.DateLastModified) = intDay Then

    objFSO.CopyFile SourceLocation , DestinationLocation, OverwriteExisting
    objFSO.DeleteFile(SourceLocation), True

    end if
    Next

datectr=DateAdd("d", 1, datectr)
datectr = DateValue(datectr)

Loop

Answer 1

我不知道你在做什么。 VBS中的日期很简单。

If DateValue("01/01/1980") < DateValue("01/01/1990") or DateValue("01/01/1980") > DateValue("01/01/1960") then

' blah
End If

如何检查范围内的日期。

还有类似的DateSerial。日期是自过去一天（公元01/01/100）以来的数字，x天，时间是一天的一小部分（下午12点是0.5）。

如何在vbscript中仅复制和删除修改日期的文件库？

1 个答案: