Re: Skrypt - Kasowanie plików starszych niż ...

On Mon, 20 Sep 2004 16:28:48 +0200, Tomasz Rosikoń wrote:

>>>>>Używając pętli if i zmiennej date
>>>>
>>>>na to sam wpadłem :) gorzej z wykonaniem :(
>>>>jak sprawdzić które pliki są starsze niż przykładowe 5 dni ?
>>>>jak w ogóle sprawdzić w skrypcie datę utworzenia pliku ?
>>>
>>>Dlatego tak jak pisalem, siegnij po jezyki programowania.
>>
>>
>> Armata na wróbla IMHO. Skrypt jest do napisania w 20 minut. Drugie 20min
>> zajmie jego przetestowanie :)
>>
> a czy może kolega poświećić 5 minut i podpowiedzieć mi fragment kodu,
> który pomoże mi w rozwiazaniu problemu ?
>
> pozdr
> Tomasz Rosikoń

Sub CopyFile (sFile, sDestDir)
        If Right(sDestDir,1) <> "\" Then sDestDir = SDestDir & "\"
        On Error Resume Next
        FSO.CopyFile sFile, sDestDir
        If Err.Number <> 0 Then
                Wscript.Echo "Blad w czasie kopiowania pliku: " & sFile & " blad: " &
Err.Number & "[" & Err.Description & "]"
        End If
End Sub

Function GetFolder (sFolder)
        On Error Resume Next
        Set GetFolder = FSO.GetFolder(sFolder)
        If Err.Number <> 0 Then
                WScript.Echo "Blad w czasie laczenia sie z folderem: " & sFolder & VBlf &
"[" & Err.Number & "]" & Err.Description
                WScrpit.Quit Err.Number
        End If
End Function

Set FSO = CreateObject("Scripting.FileSystemObject")

Rem tu wpisac nazwe katalogu zrodlowego
sDir = "E:\test"
Rem Tu wpisac o ile starsze pliki ma wyszukiwac (w dniach)
Roznica = 100
Rem Tu wpisac katalog docelowy do kopiowania/przenoszenia.
DestDir = "E:\testowe"

Set objDir = GetFolder(sDir)
GoSubFolders objDir

Sub MainSub(objDir)
        For Each eFile in objDir.Files
                RoznicaDni = Int(Now() - eFile.DateCreated)
                if (RoznicaDni > Roznica) Then
                        Wscript.Echo eFile & " -> " & Left(eFile.DateCreated,10) & " -> " &
RoznicaDni
                        CopyFile eFile, DestDir
                End If

        Next
End Sub

-- 
Pozdrawiam
Piotrek