Mehrere Dateien mit VBS

Dieses Thema Mehrere Dateien mit VBS im Forum "Webentwicklung, Hosting & Programmierung" wurde erstellt von SchmditMarco, 1. Juni 2005.

Thema: Mehrere Dateien mit VBS Guten Morgen zusammen, ich hätte da ein kleines Problemchen. Wie kann ich eine unbegrenzte Anzahl an Dateien in...

  1. Guten Morgen zusammen,

    ich hätte da ein kleines Problemchen. Wie kann ich eine unbegrenzte Anzahl an Dateien in einem bestimmten Ordner via VBScript ansprechen und danach mit ihnen arbeiten? (Sollen alle kopiert werden)

    Gruß, Marco
     
  2. Ich nochmal...Ich habe das Problem jetzt behoben, aber wenn ich die Dateien kopieren will, erhalte ich die Fehlermeldung Erlaubnis verweigert. Wenn ich ein Datei.Close setze erhalte ich Das Objekt unterstützt diese Eigenschaft nicht. Was tun?

    Option Explicit

    Dim objWshNetwork 'Netzwerk Objekt
    Dim objWshShell 'Shell Objekt
    Dim objFso 'File System Objekt
    Dim objArgs 'Argumente Objekt
    Dim objEnv 'Umgebungs Objekt
    Dim objRegEx 'Regulärer Ausdruck

    Set objWshNetwork = CreateObject(WScript.Network)
    Set objWshShell = CreateObject(WScript.Shell)
    Set objFso = CreateObject(Scripting.FileSystemObject)
    Set objArgs = WScript.Arguments
    Set objEnv = objWshShell.Environment(Process)
    Set objRegEx = New RegExp

    '_____________________________________________________________________

    Dim Ordner, OrdnerOld, Datei, Erstelldatum, Datum_Akt, Diff, Dateiname, Quelle


    Set Ordner = objFso.GetFolder(D:\Daten\Drehwinkel)
    Set OrdnerOld = objFso.GetFolder(D:\Daten\Drehwinkel\Old)
    'Datei = objFso.GetFile(D:\Daten\Drehwinkel\ & Dateiname)
    'Datum_Akt = Now
    'Erstelldatum = Datei.DateCreated
    'Diff = Now - Datei.DateCreated
    'MsgBox Diff

    For Each Datei in Ordner.Files
    Quelle = Datei.Name
    MsgBox quelle
    Datum_Akt = Now
    Erstelldatum = Datei.DateCreated
    Diff = Datum_Akt - Erstelldatum
    Set Datei = objFso.GetFile(D:\Daten\Drehwinkel\ & Quelle)
    MsgBox Datei
    Datei.Close 'Die Zeile ist nur drin, weil ich dachte den Fehler defunden zu haben.
    If Diff > 0.5 Then
    objFso.CopyFile Datei, OrdnerOld
    End If
    Next
     
  3. Das Beispiel sollte dir alle Dateien die älter als 30Min. sind in den Ordner D:\Daten\Drehwinkel\Old kopieren.

    Vorsicht, vorhandene Dateien gleichen Namens werden überschrieben.

    Code:
    OrdnerOld = D:\Daten\Drehwinkel\Old\
    Set objFS = CreateObject(Scripting.FileSystemObject)
    Set Ordner = objFS.GetFolder(D:\Daten\Drehwinkel)
    
    For Each dateien In Ordner.Files
    	If DateDiff(n, dateien.DateCreated, Now) > 30 Then
    		objFS.CopyFile dateien , OrdnerOld
    	End If
    Next
     
  4. Danke!
     
Die Seite wird geladen...

Mehrere Dateien mit VBS - Ähnliche Themen

Forum Datum
MS Word 2003: Mehrere Dateien gleichzeitig Einträge aktualisieren? Microsoft Office Suite 7. Mai 2013
Mehrere gerippte DVD-Dateien auf eine DVD brennen Windows XP Forum 22. Nov. 2012
Mehrere Dateien auf einmal Drucken Windows XP Forum 14. Nov. 2012
Mehrere MP3-Dateien gleichzeitig bearbeiten Audio, Video und Brennen 24. Okt. 2012
Outlook 2010: mehrere E-Mails als .eml-Dateien speichern Microsoft Office Suite 3. Feb. 2012