Automatisk med Z interval copy fil fra X til Y + skriv i logfil

Jeg har flækket lidt sammen, mon ikke det kan bruges.

Option Explicit

Dim WshShell, oFS, Source, Destination, oCatalog, file, oFiles, LogFile, SleepTimer
Set WshShell = CreateObject("WScript.Shell")
Set oFS = CreateObject("Scripting.FileSystemObject")

Const ForReading = 1, ForWriting = 2, ForAppending = 8

If WScript.Arguments.Count < 3 Then
    WScript.Echo "Error in command. For Right use, type:" & vbCrLf _
    & "CScript SpotAndCopy.vbs [TIME] [Source] [Destination] [LogFile]" & vbCrLF & vbCrLf _
    & "EX:" & vbCrLf & "CScript SpotAndCopy.vbs 10 C:\Source C:\Destination C:\logfile.txt"
    WScript.Echo SleepTimer
    WScript.Quit
End If

SleepTimer = WScript.Arguments(0)    'Time in Seconds
SleepTimer = SleepTimer * 1000
Source = WScript.Arguments(1)         '"c:\temp\Source"
Destination = WScript.Arguments(2)    '"c:\temp\Destination"
LogFile = WScript.Arguments(3)        'Source & "\LogFile.log"

Set oCatalog = oFS.GetFolder(Source)
Set oFiles = oCatalog.Files
Set LogFile = oFS.OpenTextFile(LogFile, ForAppending, True)


Do
    For Each file In oFiles
        If file.Size > 0 Then
            Copy(file)
        End If
    Next
    WScript.Sleep SleepTimer
Loop


WshShell = "Nothing"
oFS = "Nothing"
LogFile.Close
LogFile = "Nothing"


'---------------------------------------------------------------------
Function Copy(file)

    Dim DestinationFile
   
    DestinationFile = Right(file, (Len(file)-InStrRev(file, "\", -1, vbTextCompare)))

    If Not oFS.FileExists(Destination & "\" & DestinationFile) Then
        oFS.CopyFile file, Destination & "\" & DestinationFile, True
        If Err.Number = 0 Then
            Log(DestinationFile & " Has been copied.")
        Else
            Log("Copy og file " & file & " has failed with the following message: " & Err.Description)
        End If
        Err.Clear
    End If
   
End Function
'---------------------------------------------------------------------
Function Log(Msg)

    LogFile.WriteLine Time & " " & Date & " " & Msg

End Function
'---------------------------------------------------------------------

Godt "flækket lidt sammen" - det virker faktisk som hensigten...
Er instaleret og ruller - men:

Systemet/bruger opretter en fil [Peter.jpg] på [Source] og så bliver den jo straks copy til [Dest] som ønsket - godt nok.
Lidt efter opretter Systemet/bruger en anden fil med andet indhold men også kaldet for [Peter.jpg] (Systemet/bruger kan IKKE checke for om der findes en fil allerede med samme navn) så vil SpotAndCopy programmet jo ikke copy til [Dest] da der allerede findes en fil [Peter.jpg] ved [Dest].

Ka' det have sig rigtighed ?
Det vil være i meget få tilfælde - men bare for at være garderet da der efterhånden kommer flere brugerer på - pt. 300 mulige brugerer...

Måske en mulighed for at checke på en form for TimeStamp mellem [Source]/[Dest] i samarbejde med [Len] ???

Hmmm...

Det havde du jo ikke snakket noget om, men mon ikke den skulle være der der.

Option Explicit

Dim WshShell, oFS, Source, Destination, oCatalog, file, oFiles, LogFile, SleepTimer
Set WshShell = CreateObject("WScript.Shell")
Set oFS = CreateObject("Scripting.FileSystemObject")

Const ForReading = 1, ForWriting = 2, ForAppending = 8

If WScript.Arguments.Count < 3 Then
    WScript.Echo "Error in command. For Right use, type:" & vbCrLf _
    & "CScript SpotAndCopy.vbs [TIME] [Source] [Destination] [LogFile]" & vbCrLF & vbCrLf _
    & "EX:" & vbCrLf & "CScript SpotAndCopy.vbs 10 C:\Source C:\Destination C:\logfile.txt"
    WScript.Echo SleepTimer
    WScript.Quit
End If

SleepTimer = WScript.Arguments(0)    'Time in Seconds
SleepTimer = SleepTimer * 1000
Source = WScript.Arguments(1)        '"c:\temp\Source"
Destination = WScript.Arguments(2)    '"c:\temp\Destination"
LogFile = WScript.Arguments(3)        'Source & "\LogFile.log"

Set oCatalog = oFS.GetFolder(Source)
Set oFiles = oCatalog.Files
Set LogFile = oFS.OpenTextFile(LogFile, ForAppending, True)


Do
    For Each file In oFiles
        If file.Size > 0 Then
            Copy(file)
        End If
    Next
    WScript.Sleep SleepTimer
Loop


WshShell = "Nothing"
oFS = "Nothing"
LogFile.Close
LogFile = "Nothing"


'---------------------------------------------------------------------
Function Copy(file)

    Dim DestinationFile, DF
 
    DestinationFile = Right(file, (Len(file)-InStrRev(file, "\", -1, vbTextCompare)))

    If Not oFS.FileExists(Destination & "\" & DestinationFile) Then
        oFS.CopyFile file, Destination & "\" & DestinationFile, True
        If Err.Number = 0 Then
            Log(DestinationFile & " Has been copied.")
        Else
            Log("Copy og file " & file & " has failed with the following message: " & Err.Description)
        End If
        Err.Clear
    Else
        Set DF = oFS.GetFile(Destination & "\" & DestinationFile)
        If file.DateLastModified <> DF.DateLastModified Then
            oFS.CopyFile file, Destination & "\" & DestinationFile, True
            If Err.Number = 0 Then
                Log(DestinationFile & " Has been copied.")
            Else
                Log("Copy og file " & file & " has failed with the following message: " & Err.Description)
            End If
            Err.Clear
        End if
    End If
 
End Function
'---------------------------------------------------------------------
Function Log(Msg)

    LogFile.WriteLine Time & " " & Date & " " & Msg

End Function
'---------------------------------------------------------------------

Det jeg ka' tyde ser rigtigt ud...
Har dog først mulighed for at checke i real life i løbet af Onsdag (11/02 2004).

Sødt navn med: [SpotAndCopy] ...

Vender tilbage...

Det er fint fint .. Ja navnet kom lige til mig :)

Det virker som ønsket...

Part #1
Men jeg/vi har et ønske om at kunne "se" om programmet ruller som det skal.
I nuværende version sker der jo "ingenting" på skærmen når programmer ruller og man kan så blive i tvivl om hvorvidt det er igang...

I loopen hvor der ventes (i nævnte eksempel 10 sek) skal der på skærmen vises et [.] for hver sekund samt [O] for hvert check.
Samt evt. hvilke filer der bliver copy (hvis nogen) på samme måde som i logfilen.

Eks:

SpotAndCopy running:
From
    [Source]
To
    [Destination]
every X second

..........O..........O..........O
Peter.jpg has been copied
..........O..........O..........O..........O..........O..........O..........O..........O..........O..........O..........O..........O
Pia25.jpg has been copied
Monitor.jpg has been copied
..........O..........

osv...

Evt. kan denne skærminfo undertrykkes med en [/s] flag på i argument linien(s=silent/stille) hvis nogen vil det...

Part #2
Det virker som om logfilen blive helt låst for manuelt editering når programmet ruller ? Hvis du kunne arrangere at den bliver "åbnet" / ikke-låst når ønsket info er skrevet i den ? Det var for at kunne slette en del i den uden at skulle kvæle programmet først...

På nuværende tidspunkt har programet kørt i >1 uge og har copy 1765 filer OK !!!
Iøvrigt er selve programmet på server1; eksekveres via server2; copy fra server3 til server4; logfil skrives på server5 - jo det virker...

Monty Pyton havde engang en sketch ved navn: "Spot The Looney" samt en slags PC spil baseret på samme - har det et eller andet ted i arkivet. Jeg kommer til at tænke på den mht. navnet: [SpotAndCopy] ...
Ja - jeg er fra "den tid" ...

En "detalje": Hvis Source eller Target ikke er tilgængeligt - i mit tilfælde er det ved en server - så går programmet i stå ?
Kan du få det til at på en eller anden måde checke om Source eller Target er tilgængelig uden at "dø" ?

Ja det kan jeg godt lave til dig, men jeg begynder at tvivle lidt på om jeg nogen sinde ser noget til de der points....

... hvor (i denne version af eksperten) ændrer (=forøger) man POINT ?
Så jeg ka' skyde X point af til dig <bfjmnemonic>...

<bfjmnemonic> - Se i http://www.eksperten.dk/spm/472438

<bfjmnemonic>: Her er første 'bidrag' / 'afdrag' mht POINT

Fint Fint takker. Jeg kigger lige på det snarrest.

<bfjmnemonic>: Øhhh ... What's Up ?

"En "detalje": Hvis Source eller Target ikke er tilgængeligt - i mit tilfælde er det ved en server - så går programmet i stå ?
Kan du få det til at på en eller anden måde checke om Source eller Target er tilgængelig undervejs uden at programmet "dør" ? Og så prøve igen efter lidt tid...

Programmet har kørt fint - ~5000 automatiske copy operationer er gennemført pt.

Problemet opstår hvis det f.eks. er et netværks share der er mappet, og den så af en eller anden grund ikke er tilgængelig? Eller er det et andet senario?

Hvad vil du have den til i tilfælde af fejl?

... Hmmm... jeg har ikke fået noget mail om nye indlæg i denne tråd - ser det først nu...

"i tilfælde af fejl" - skip forsøg på copy processen og kør videre i loopen (pt. bruger jeg 15 sek. interval).

Dette skal gælde både for Source eller Target stedet...

Opfølgning ved: http://www.eksperten.dk/spm/539535