• Webseitenerstellung und -hosting
  • .NET Anwendungsentwicklung
  • softwaregesteuerte Prozessoptimierung
  • .NET

    Programmierung

  • WebseitenErstellung

    undHosting

  • softwaregesteuerte

    Prozessoptimierung

  • Konzeption

    und Beratung

%PM, %16. %609 %2011 %13:%Dez

VBS Dateien umbennen, verschieben, loggen

geschrieben von
Artikel bewerten
(0 Stimmen)
...und weil wir grad drüber sind kann ich das Script auch gleich mit veröffentlichen.  btw: 7 Min. asboluter Rekord! :-P Dateien von A nach B schieben. Einen Zeitstempel anhängen, ein logfile schreiben Option Explicit

Dim fsoIO

Dim folQuelle, filQuelle, filDatei, filLog

Dim strfilDest, strfilLog, strfolZiel, strFilSrc

On Error resume next

Set fsoIO = CreateObject("Scripting.FileSystemObject")

Set folQuelle = fsoIO.GetFolder("C:\Users\sschirner\Desktop\vonhier")

strfolZiel = "\\Server-fs\Upload\test\nachhier\"

Set filQuelle = folQuelle.Files

strfilLog = strfolZiel & "bck_copy.log"

Set filLog = fsoio.OpenTextFile (strfilLog,8,true)

For Each filDatei In filQuelle

If lcase(right(filDatei.Name,3)) = "zip" Then

strfilDest = strfolZiel &  year(now) & month(now) & day(now) & hour(now) & minute(now) & "." & fildatei.Name

strFilSrc = filDatei.Pathy

fsoio.MoveFile fildatei.Path, strfilDest

if err.number = 0 then

filLog.Writeline formatdatetime(now) & " - OK - " & strFilSrc & " -> " & strfilDest

else

filLog.Writeline formatdatetime(now) & " - FEHLER! - " & err.Description

err.clear

end if

End If

Next

filLog.close

if err.number <> 0 then

filLog.Writeline formatdatetime(now) & " - FEHLER! - " & err.Description

end if

   
Gelesen 42557 mal Letzte Änderung am %PM, %24. %643 %2015 %14:%Jun

761 Kommentare

Schreibe einen Kommentar

Bitte achten Sie darauf, alle Felder mit Stern * zu füllen. HTML-Code ist nicht erlaubt.