none
Cpoiar Arquivo baseado em Data RRS feed

  • Pergunta

  • Olá a Todos

     


    Existe algum Script que -- imprima um arquivo de uma pasta que foi gerado em uma determinada hora.

     

     

    Ex: c:\temp\teste.txt   - 20/05/07 as 15:30

     

    Se não for possivel pelo menos copiar o ultimo arquivo de uma pasta

     

     

    Senhores agradeço a ajuda.

    quarta-feira, 23 de maio de 2007 19:42

Respostas

  • Não entendi direito o que você quer fazer, explica melhor. Mas segue um script que escreve a data que o arquivo foi modificado pela ultima vez.

     

    Code Snippet

    '## Global variables
    Dim OutPutFile
    strDrive = InputBox ("Qual o drive a ser scaneado? Ex.: C:")


    '## Initialize global variables
    Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
    Set OutPutFile = FileSystem.CreateTextFile("Saida.txt", True)

    '## Cria cabeçalho do arquivo de log
    OutPutFile.WriteLine "Full Path,File Name,Path,Creation Date,File Size (KB),Last Modified,Last Accessed,Executed Date"

    strComputer = "."
    Set objWMIService = GetObject _
        ("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colFiles = objWMIService.ExecQuery _
        ("Select * From CIM_DataFile Where Drive = '" & strDrive & "'")
    For Each objFile in colFiles
         
    '## Converte datas
    CreationDate = WMIDateStringToDate(objFile.CreationDate)
    LastModified = WMIDateStringToDate(objFile.LastModified)
    LastAccessed = WMIDateStringToDate(objFile.LastAccessed)

    '## Converte Bytes para KByte
    FileSize = objFile.FileSize / 1024

    '## Loga ação tomada
    OutPutFile.WriteLine objFile.Name & "," & objFile.FileName & "," & objFile.Drive & objFile.Path & "," & CreationDate & "," & Int(FileSize) & "," & LastModified & "," & LastAccessed & "," & Date

    Next

    Function WMIDateStringToDate(dtmInstallDate)
     WMIDateStringToDate = CDate(Mid(dtmInstallDate, 5, 2) & "/" & _
     Mid(dtmInstallDate, 7, 2) & "/" & Left(dtmInstallDate, 4) _
     & " " & Mid (dtmInstallDate, 9, 2) & ":" & _
     Mid(dtmInstallDate, 11, 2) & ":" & Mid(dtmInstallDate, _
     13, 2))
    End Function

    '## Clean up
    OutPutFile.Close
    msgbox "Finish!!!" & VbCr & "Pronto - Importe no Excel usando o demilitador: Virgula"
    WScript.Quit(0)

     

     

     

     

    sexta-feira, 31 de agosto de 2007 02:00