Hta und Vbscript - Dateien mit Array filtern - automatisch umbenennen und bei bestimmten Dateien eine Nummerierung dem Dateinamen hinzufügen
In einem Ordner befinden sich gepackte Dateien im zip,tar und rar Format. Der Ordner wird auf Vorhandensein dieser Formate abgefragt und wenn ja werden die Dateinamen in eine Textdatei geschrieben.
Diese wird ausgelesen und eine Listbox in der HTA wird damit gefüllt.
Danach ist eine mehrfach Selektion der Dateien welche man entpacken will , möglich.
Hat man dann seine Wahl getroffen und die Dateien sind entpackt sollen diese mittels eines Arrays , das auf bestimmte Dateiendungen abfragt, gefiltert werden.
Danach sollen die entpackten Dateien den Namen der gepackten Datei erhalten (ohne Endung) und die Endung der entpackten Datei.
Meistens enthält eine gepackte Datei nur 1 Datei,wenn doch mal 2 oder mehr vorhanden sind,sollen diese automatisch eine Nummerierung erhalten.
Beispiel einzelne Datei:
Name der gepackten Datei
Name der entpackten Datei
daraus soll dann werden
Beispiel mehrere Dateien:
Name der gepackten Datei
Name der entpackten Dateien
daraus soll dann werden
Bis hierhin funktioniert meine Hta mit Vbscript schon. Die automatische Umbenennung funktioniert nur bei gepackten Dateien die 1 Datei enthalten (hiervon kann ich auch mehrere auswählen).
Sobald aber eine Kombination von gepackten Dateien ausgewählt wird (die 1 und 2 Dateien beeinhalten) funktioniert die automatische Nummerierung nicht mehr.
Ich finde den Fehler einfach nicht und wollte fragen ob mir hierbei jemand bitte helfen könnte.
Hier der Code für die Umbenennung und Nummerierung:
moveordner = Ordner in dem die Dateien entpackt werden
zielfolder = Hier werden die umbenannten Dateien hin verschoben
sTyp = Dateiendungen
aTypen= Array ("xls", "doc") usw,,,,
objitem.value = Name der gepackten Datei,ausgelesen aus der Textdatei (für die Listbox)
Vielen Dank für eure Hilfe
Sollte der komplette Code benötigt werden,bitte ich um kurze Antwort hier und ich werde dann mein Posting editieren.
Gruß
Claus
Danach sollen die entpackten Dateien den Namen der gepackten Datei erhalten (ohne Endung) und die Endung der entpackten Datei.
Meistens enthält eine gepackte Datei nur 1 Datei,wenn doch mal 2 oder mehr vorhanden sind,sollen diese automatisch eine Nummerierung erhalten.
Beispiel einzelne Datei:
Name der gepackten Datei
Abteilung Lohnbuchhaltung.zip
Name der entpackten Datei
müller.xls
daraus soll dann werden
Abteilung Lohnbuchhaltung.xls
Beispiel mehrere Dateien:
Name der gepackten Datei
Abteilung Lagerhaltung.zip
Name der entpackten Dateien
maier test-a.xls
maier test-b.xls
maier test-b.xls
daraus soll dann werden
Abteilung Lagerhaltung - 1.xls
Abteilung Lagerhaltung - 2.xls
Abteilung Lagerhaltung - 2.xls
Bis hierhin funktioniert meine Hta mit Vbscript schon. Die automatische Umbenennung funktioniert nur bei gepackten Dateien die 1 Datei enthalten (hiervon kann ich auch mehrere auswählen).
Sobald aber eine Kombination von gepackten Dateien ausgewählt wird (die 1 und 2 Dateien beeinhalten) funktioniert die automatische Nummerierung nicht mehr.
Ich finde den Fehler einfach nicht und wollte fragen ob mir hierbei jemand bitte helfen könnte.
Hier der Code für die Umbenennung und Nummerierung:
moveordner = Ordner in dem die Dateien entpackt werden
zielfolder = Hier werden die umbenannten Dateien hin verschoben
sTyp = Dateiendungen
aTypen= Array ("xls", "doc") usw,,,,
objitem.value = Name der gepackten Datei,ausgelesen aus der Textdatei (für die Listbox)
For Each sTyp In aTypen 'Dateitypen
For Each oFile In fso.GetFolder(moveordner).Files 'Quelldateien
If LCase(fso.GetExtensionName(oFile.Path)) = sTyp Then
oname = Left(objitem.value, InStrRev(objitem.value, ".") - 1)
ofile_endung = Right(ofile.name, 3)
ofile.name = oname & "." & ofile_endung
if not objfso.FileExists(zielfolder & "\" & ofile.name) and not ofilecounter > 1 then
msgbox "Datei wird in zielfolder verschoben"
ofile.Move zielfolder
ofilecounter = ofilecounter + 1
if not (movefolder & "\" & oname) = (zielfolder & "\" & oname) then
ofilecounter = 0
end if
end if
if ofilecounter = 2 then
msgbox "Dateiverarbeitung von mehreren Dateien"
k = k + 1
fz = " - Teil " & (k)
ofile.name = oname & fz & "." & ofile_endung
else
msgbox "Datei " & ofile.name & " wird in den Zielfolder verschoben"
ofile.move zielfolder
ofilecounter = 0
end if
end if
next
next
'###################################################################################################
'
' Alle verbliebenen Dateien im moveordner löschen
'
'###################################################################################################
Set objFolder = objFSO.GetFolder(moveordner)
For each dFile in objFolder.Files
dFile.Delete
next
End If
Next
Sollte der komplette Code benötigt werden,bitte ich um kurze Antwort hier und ich werde dann mein Posting editieren.
Gruß
Claus
16 Antworten
- LÖSUNG bastla schreibt am 06.10.2011 um 15:32:58 Uhr
- LÖSUNG cbli schreibt am 06.10.2011 um 15:57:52 Uhr
- LÖSUNG bastla schreibt am 06.10.2011 um 16:21:17 Uhr
- LÖSUNG cbli schreibt am 07.10.2011 um 12:34:49 Uhr
- LÖSUNG bastla schreibt am 07.10.2011 um 15:11:58 Uhr
- LÖSUNG cbli schreibt am 07.10.2011 um 16:45:38 Uhr
- LÖSUNG bastla schreibt am 07.10.2011 um 17:26:03 Uhr
- LÖSUNG cbli schreibt am 07.10.2011 um 19:15:26 Uhr
- LÖSUNG bastla schreibt am 07.10.2011 um 19:29:47 Uhr
- LÖSUNG cbli schreibt am 08.10.2011 um 00:54:35 Uhr
- LÖSUNG cbli schreibt am 14.10.2011 um 12:46:16 Uhr
- LÖSUNG bastla schreibt am 14.10.2011 um 15:13:00 Uhr
- LÖSUNG cbli schreibt am 14.10.2011 um 16:17:36 Uhr
- LÖSUNG bastla schreibt am 14.10.2011 um 16:31:17 Uhr
- LÖSUNG cbli schreibt am 14.10.2011 um 18:26:59 Uhr
- LÖSUNG cbli schreibt am 24.10.2011 um 23:56:21 Uhr
- LÖSUNG cbli schreibt am 14.10.2011 um 18:26:59 Uhr
- LÖSUNG bastla schreibt am 14.10.2011 um 16:31:17 Uhr
- LÖSUNG cbli schreibt am 14.10.2011 um 16:17:36 Uhr
- LÖSUNG bastla schreibt am 14.10.2011 um 15:13:00 Uhr
- LÖSUNG cbli schreibt am 14.10.2011 um 12:46:16 Uhr
- LÖSUNG cbli schreibt am 08.10.2011 um 00:54:35 Uhr
- LÖSUNG bastla schreibt am 07.10.2011 um 19:29:47 Uhr
- LÖSUNG cbli schreibt am 07.10.2011 um 19:15:26 Uhr
- LÖSUNG bastla schreibt am 07.10.2011 um 17:26:03 Uhr
- LÖSUNG cbli schreibt am 07.10.2011 um 16:45:38 Uhr
- LÖSUNG bastla schreibt am 07.10.2011 um 15:11:58 Uhr
- LÖSUNG cbli schreibt am 07.10.2011 um 12:34:49 Uhr
- LÖSUNG bastla schreibt am 06.10.2011 um 16:21:17 Uhr
- LÖSUNG cbli schreibt am 06.10.2011 um 15:57:52 Uhr
LÖSUNG 06.10.2011 um 15:32 Uhr
Hallo cbli!
Abgesehen davon, dass ich vernünftige Einrückungen und als Zeilen 5 und 6 eher
verwenden würde: Wie erfolgt (da ja mehrere Dateien entpackt werden können) die Zuordnung zur Archivdatei oder ist davon auszugehen, dass sich in "moveordner" jeweils nur die Dateien eines Archivs befinden?
Grüße
bastla
Abgesehen davon, dass ich vernünftige Einrückungen und als Zeilen 5 und 6 eher
oname = fso.GetBaseName(objitem.Value)
ofile_Endung = fso.GetExtensionName(ofile.name)
Grüße
bastla
LÖSUNG 06.10.2011 um 15:57 Uhr
Hallo bastla
Danke für den Hinweis zu Zeilen 5 + 6
Die ganze Zuordnung erfolgt in einer for Schleife in der obiger Code Ausschnitt auch enthalten ist.
Während eines Schleifendurchlaufs wird immer nur 1 Archiv verarbeitet und im moveordner befinden sich immer nur die entpackten Dateien aus 1 Archiv (also 1 oder mehrere - je nach Inhalt des Archivs).
Gruß
Claus
Danke für den Hinweis zu Zeilen 5 + 6
Die ganze Zuordnung erfolgt in einer for Schleife in der obiger Code Ausschnitt auch enthalten ist.
Während eines Schleifendurchlaufs wird immer nur 1 Archiv verarbeitet und im moveordner befinden sich immer nur die entpackten Dateien aus 1 Archiv (also 1 oder mehrere - je nach Inhalt des Archivs).
Gruß
Claus
LÖSUNG 06.10.2011 um 16:21 Uhr
Hallo cbli!
Soferne nicht geprüft werden muss, ob es eine gleichnamige Zieldatei (aus einem früheren Entpackungsvorgang) bereits gibt, würde ich das etwa so versuchen:
Es wäre natürlich auch möglich, wenn es nur eine Datei gibt, diese bereits vor dem Verschieben vom Zusatz " - 1" zu befreien; das nachträgliche Umbenennen habe ich wegen der Ausgabe (für die ich ansonsten nochmals eine Unterscheidung zwischen 1 und mehreren Dateien benötigt hätte) erst im "zielfolder" durchgeführt ...
Grüße
bastla
[Edit] Fehlenden "." in Zeile 15 hinzugefügt und "zielordner" korrigiert[/Edit]
Soferne nicht geprüft werden muss, ob es eine gleichnamige Zieldatei (aus einem früheren Entpackungsvorgang) bereits gibt, würde ich das etwa so versuchen:
oname = fso.GetBaseName(objitem.Value)
For Each sTyp In aTypen 'Dateitypen
ofilecounter = 0
For Each oFile In fso.GetFolder(moveordner).Files 'Quelldateien
If LCase(fso.GetExtensionName(oFile.Path)) = sTyp Then
ofilecounter = ofilecounter + 1
ofile_Endung = fso.GetExtensionName(oFile.Path) 'nur erforderlich, wenn Groß-/Kleinschreibung des Typs "original" übernommen werden soll - ansonsten würde sTyp ohnehin bereits zur Verfügung stehen
oFile.Name = oname & " - " & ofilecounter & "." & ofile_Endung 'jede Datei umbenennen und mit lfd Nummer versehen
End If
Next
If ofilecounter > 0 Then 'Wenn es Dateien des untersuchten Typs gab ...
fso.MoveFile moveordner & "\" & oname & "*." & sTyp, zielordner '... alle auf einmal verschieben
If ofilecounter = 1 Then 'Wenn es nur eine Datei war, ...
fso.GetFile(zielordner & "\" & oname & " - 1." & sTyp).Name = oname & "." & sTyp '... die Laufnummer (" - 1") wieder entfernen
WScript.Echo "1 " & sTyp & "-Datei wurde in zielordner verschoben"
Else
WScript.Echo ofilecounter & " " & sTyp & "-Dateien wurden in zielordner verschoben"
End If
End If
Next
'###################################################################################################
'
' Alle verbliebenen Dateien im moveordner löschen
'
'###################################################################################################
Set objFolder = fso.GetFolder(moveordner)
For Each dFile In objFolder.Files
dFile.Delete
Next
Grüße
bastla
[Edit] Fehlenden "." in Zeile 15 hinzugefügt und "zielordner" korrigiert[/Edit]
LÖSUNG 07.10.2011 um 12:34 Uhr
Hallo bastla
Ersteinmal vielen Dank für deine Bemühungen !
Habe jetzt deinen Code Schnipsel getestet und es funktioniert zuverlässig mit Archiven die 2 oder mehr Dateien enthalten.
Ist im Archiv nur 1 Datei, wird die Laufnummer nicht entfernt.
Außerdem habe ich jetzt leider feststellen müssen,daß in meinen Archiven auch noch andere Konstellationen vorkommen können.
Beispiel:
Name der gepackten Datei
Namen der entpackten Dateien
daraus soll dann werden
Beispiel 2:
Name der gepackten Datei
Namen der entpackten Dateien
daraus soll dann werden
Kann man das noch irgendwie miteinbauen in den Code ?
Noch 2 Verständnisfragen hätte ich
Habe es seither mit Copy und dann Delete gemacht, Ist aber sehr umständlich
Vielen Dank schon mal im Vorraus
Gruß
Claus
Ersteinmal vielen Dank für deine Bemühungen !
Habe jetzt deinen Code Schnipsel getestet und es funktioniert zuverlässig mit Archiven die 2 oder mehr Dateien enthalten.
Ist im Archiv nur 1 Datei, wird die Laufnummer nicht entfernt.
Außerdem habe ich jetzt leider feststellen müssen,daß in meinen Archiven auch noch andere Konstellationen vorkommen können.
Beispiel:
Name der gepackten Datei
Abteilung Lohnbuchhaltung.zip
Namen der entpackten Dateien
müller.xls
müller.doc
müller.pub
müller.doc
müller.pub
daraus soll dann werden
Abteilung Lohnbuchhaltung.xls
Abteilung Lohnbuchhaltung.doc
Abteilung Lohnbuchhaltung.pub
Abteilung Lohnbuchhaltung.doc
Abteilung Lohnbuchhaltung.pub
Beispiel 2:
Name der gepackten Datei
Abteilung Lagerhaltung.zip
Namen der entpackten Dateien
müller a.xls
müller a.doc
müller a.pub
müller a.doc
müller a.pub
müller b.xls
müller b.doc
müller b.pub
müller b.doc
müller b.pub
daraus soll dann werden
Abteilung Lagerhaltung 1.xls
Abteilung Lagerhaltung 1.doc
Abteilung Lagerhaltung 1.pub
Abteilung Lagerhaltung 1.doc
Abteilung Lagerhaltung 1.pub
Abteilung Lagerhaltung 2.xls
Abteilung Lagerhaltung 2.doc
Abteilung Lagerhaltung 2.pub
Abteilung Lagerhaltung 2.doc
Abteilung Lagerhaltung 2.pub
Kann man das noch irgendwie miteinbauen in den Code ?
Noch 2 Verständnisfragen hätte ich
1. Kann man bei einem Move Befehl irgendwie erreichen,daß eine bereits vorhandene Datei überschrieben wird ?
Habe es seither mit Copy und dann Delete gemacht, Ist aber sehr umständlich
2. Gibt es eine Möglichkeit in einer Hta mit Vbscript ein Popup oder msgbox Fenster (das eine Variable enthält) automatisch nach einer bestimmten Zeit schließen zu lassen ?
Vielen Dank schon mal im Vorraus
Gruß
Claus
LÖSUNG 07.10.2011 um 15:11 Uhr
LÖSUNG 07.10.2011 um 16:45 Uhr
Hallo bastla
Hab deine Ergänzung gerade nochmal getestet und bin jetzt etwas verwirrt.
Viele Archive die 1 Datei enthalten macht er, manche aber nicht obwohl ja der Dateiname keine Rolle spielen dürfte.
Woran kann das liegen ?
Teste ich gerade.....
Wäre nett wenn du nochmal drüberschauen könntest..
Danke + lieben Gruß
Claus
Hab deine Ergänzung gerade nochmal getestet und bin jetzt etwas verwirrt.
Viele Archive die 1 Datei enthalten macht er, manche aber nicht obwohl ja der Dateiname keine Rolle spielen dürfte.
Beispiel 1 aus meinem letzten Beitrag macht er auch nicht.
Beispiel 2 jedoch ohne Probleme ,sowie auch alle anderen Archive die 2 oder mehr Dateien enthalten.
Woran kann das liegen ?
CreateObject("WScript.Shell").PopUp ...
Teste ich gerade.....
edit: Hat leider nicht funktioniert,außer ich lasse den Mauszeiger für die eingestellte Zeit auf dem Popup Fenster ruhen - Fällt dir da was ein ?
Wäre nett wenn du nochmal drüberschauen könntest..
Danke + lieben Gruß
Claus
LÖSUNG 07.10.2011 um 17:26 Uhr
Hallo cbli!
Da die Files-Auflistung die umbenannten Dateien im Quellordner ein zweites Mal erfasst, eine etwas abgewandelte Vorgangsweise:
Grüße
bastla
Da die Files-Auflistung die umbenannten Dateien im Quellordner ein zweites Mal erfasst, eine etwas abgewandelte Vorgangsweise:
If Right(zielordner, 1) <> "\" Then zielordner = zielordner & "\"
For Each sTyp In aTypen 'Dateitypen
ofilecounter = 0
For Each oFile In fso.GetFolder(moveordner).Files 'Quelldateien
If LCase(fso.GetExtensionName(oFile.Path)) = sTyp Then
ofilecounter = ofilecounter + 1
oFile.Name = oname & " - " & ofilecounter & "." & sTyp 'jede Datei umbenennen und mit lfd Nummer versehen und ...
oFile.Move zielordner '... gleich verschieben
End If
Next
If ofilecounter = 1 Then 'Wenn es nur eine Datei war, ...
fso.GetFile(zielordner & oname & " - 1." & sTyp).Name = oname & "." & sTyp '... die Laufnummer (" - 1") wieder entfernen
WScript.Echo "1 " & sTyp & "-Datei wurde in zielfolder verschoben"
ElseIf ofilecounter > 1 Then
WScript.Echo ofilecounter & " " & sTyp & "-Dateien wurden in zielfolder verschoben"
End If
Next
Kann man bei einem Move Befehl irgendwie erreichen,daß eine bereits vorhandene Datei überschrieben wird ?
Nein; ein "Move" oder "MoveFile" kann existierende Zieldateien nicht überschreiben.Grüße
bastla
LÖSUNG 07.10.2011 um 19:15 Uhr
Hallo bastla
Danke ! Danke ! Danke !
Teste jetzt seit 1 Stunde und habe noch keinen Fehler gefunden.
Alles wird wunderbar umbenannt, egal ob 1 Datei im Archiv ist oder auch mehrere.
Ich habe jetzt jedoch eine noch weit genug reichende Abfrage meinerseits entdeckt (an einer anderen Stelle in meinem Script) und vielleicht kannst du mir noch einen Tip geben.
Mit diesem Code lösche ich vor der eigentlichen Umbenennung der entpackten Dateien,etwaige unerwünschte Dateien.
In diesem Beispiel löscht er alle Dateien die entweder sample????.doc oder ?????sample.doc heißen.
Ich hatte es nur mit der Endung doc probiert und da es funktioniert hat, habe ich es vergessen.
Es können jedoch auch alle anderen Dateiendungen (die im Array hinterlegt sind) vorkommen ,die manchmal nur 2 Stellen oder auch 4 Stellen (xlsx,docx,usw....) haben und dann würde es ja nicht mehr funktionieren mit meinem obigen Code
Wie muss ich das entsprechend erweitern,daß der Code flexibler ist und ich alle Dateiendungen ,egal welcher Länge, verarbeiten kann ?
Nochmals Dank und schon mal vorab ein wunderschönes Wochenende
Gruß
Claus
Danke ! Danke ! Danke !
Teste jetzt seit 1 Stunde und habe noch keinen Fehler gefunden.
Alles wird wunderbar umbenannt, egal ob 1 Datei im Archiv ist oder auch mehrere.
Ich habe jetzt jedoch eine noch weit genug reichende Abfrage meinerseits entdeckt (an einer anderen Stelle in meinem Script) und vielleicht kannst du mir noch einen Tip geben.
For Each sTyp In aTypen 'Dateitypen
For Each sampleFile In fso.GetFolder(moveordner).Files 'Quelldateien
if right(sampleFile.name, 10)="sample.doc" or left(sampleFile.name, 6)="sample" then
sampleFile.Delete
end if
next
next
In diesem Beispiel löscht er alle Dateien die entweder sample????.doc oder ?????sample.doc heißen.
Ich hatte es nur mit der Endung doc probiert und da es funktioniert hat, habe ich es vergessen.
Es können jedoch auch alle anderen Dateiendungen (die im Array hinterlegt sind) vorkommen ,die manchmal nur 2 Stellen oder auch 4 Stellen (xlsx,docx,usw....) haben und dann würde es ja nicht mehr funktionieren mit meinem obigen Code
Wie muss ich das entsprechend erweitern,daß der Code flexibler ist und ich alle Dateiendungen ,egal welcher Länge, verarbeiten kann ?
Nochmals Dank und schon mal vorab ein wunderschönes Wochenende
Gruß
Claus
LÖSUNG 07.10.2011 um 19:29 Uhr
Hallo cbli!
Du kannst ja die gleiche Vorgangsweise wie oben wählen, um nur die "sTyp"-Dateien zu verarbeiten und dann nur den Dateinamen prüfen:
Noch einfacher wäre es natürlich, wenn nur das Vorhandensein von "sample" im Dateinamen geprüft werden müsste - dann würde "InStr()" reichen ...
Grüße
bastla
Du kannst ja die gleiche Vorgangsweise wie oben wählen, um nur die "sTyp"-Dateien zu verarbeiten und dann nur den Dateinamen prüfen:
CheckFor = "sample"
LCheckFor = Len(CheckFor) 'Länge nur ein einziges Mal ermitteln
For Each sTyp In aTypen 'Dateitypen
For Each sampleFile In fso.GetFolder(moveordner).Files 'Quelldateien
If LCase(fso.GetExtensionName(sampleFile.Path)) = sTyp Then
sampleFileName = LCase(fso.GetBaseName(sampleFile.Path))
If Right(sampleFileName, LCheckFor) = CheckFor Or Left(sampleFileName, LCheckFor) = CheckFor Then sampleFile.Delete
End If
Next
Next
Grüße
bastla
LÖSUNG 08.10.2011 um 00:54 Uhr
Hallo bastla
Vielen Dank für den letzten Code Schnipsel ! Hat perfekt funktioniert.
Tatsächlich hätte für obigen Code "InStr()" gereicht,da ja schon vorher auf Dateiendungen gefiltert wurde.
Habs aber leider zu spät bemerkt,du warst einfach zu schnell !
Allerdings kann ich deine Lösung für ein anderes Script brauchen,das demnächst geplant ist.
Nochmals Dank für deine grandiose Hilfe.
ich werde den Beitrag als gelöst markieren.
Gruß
Claus
Vielen Dank für den letzten Code Schnipsel ! Hat perfekt funktioniert.
Tatsächlich hätte für obigen Code "InStr()" gereicht,da ja schon vorher auf Dateiendungen gefiltert wurde.
Habs aber leider zu spät bemerkt,du warst einfach zu schnell !
Allerdings kann ich deine Lösung für ein anderes Script brauchen,das demnächst geplant ist.
Nochmals Dank für deine grandiose Hilfe.
ich werde den Beitrag als gelöst markieren.
Gruß
Claus
LÖSUNG 14.10.2011 um 12:46 Uhr
Hallo
Erstmal Sorry,daß ich hier nochmals schreibe, aber mir ist ist nach langem Testen noch aufgefallen,daß ich vergessen hatte die Funktion einzubauen,die prüft ob eine zu entpackende
Datei im Zielordner schon existiert.
Befindet sich 1 Datei im Archiv funktioniert der Code den ich hinzugefügt habe.
Jedoch nicht bei 2 oder mehr Dateien in einem Archiv.
Wäre nett wenn jemand nochmal drüberschauen könnte und mir sagen was ich falsch gemacht habe. Ich komme einfach nicht drauf.
Vielen Dank schon mal
Gruß
Claus
Erstmal Sorry,daß ich hier nochmals schreibe, aber mir ist ist nach langem Testen noch aufgefallen,daß ich vergessen hatte die Funktion einzubauen,die prüft ob eine zu entpackende
Datei im Zielordner schon existiert.
Befindet sich 1 Datei im Archiv funktioniert der Code den ich hinzugefügt habe.
Jedoch nicht bei 2 oder mehr Dateien in einem Archiv.
Wäre nett wenn jemand nochmal drüberschauen könnte und mir sagen was ich falsch gemacht habe. Ich komme einfach nicht drauf.
'###################################################################################################
' Dateien umbenennen,nummerieren und in Zielordner verschieben
'###################################################################################################
oname = fso.GetBaseName(objitem.Value)
If Right(zielfolder, 1) <> "\" Then zielfolder = zielfolder & "\"
For Each sTyp In aTypen 'Dateitypen
ofilecounter = 0
For Each oFile In fso.GetFolder(moveordner).Files 'Quelldateien
If LCase(fso.GetExtensionName(oFile.Path)) = sTyp Then
ofilecounter = ofilecounter + 1
ofile.Name = oname & "." & sTyp
If fso.FileExists(zielfolder & "\" & oFile.Name) Then 'Zieldatei
Set oFileZiel = fso.GetFile(zielfolder & "\" & oFile.Name)
If oFileZiel.Size >= oFile.Size Then
ofile.Delete
else
ofileZiel.Delete
ofile.move moveordner
end if
end if
oFile.Name = oname & " - cd" & ofilecounter & "." & sTyp 'jede Datei umbenennen und mit lfd Nummer versehen und ...
msgbox ofile.name
oFile.Move zielfolder
End If
Next
If ofilecounter = 1 Then 'Wenn es nur eine Datei war, ...
fso.GetFile(zielfolder & oname & " - cd1." & sTyp).Name = oname & "." & sTyp '... die Laufnummer (" - 1") wieder entfernen
WScript.Echo "1 " & sTyp & "-Datei wurde in zielfolder verschoben"
ElseIf ofilecounter > 1 Then
WScript.Echo ofilecounter & " " & sTyp & "-Dateien wurden in zielfolder verschoben"
End If
Next
'###################################################################################################
'
' Alle verbliebenen Dateien im moveordner löschen
'
'###################################################################################################
Set objFolder = fso.GetFolder(moveordner)
For Each dFile In objFolder.Files
dFile.Delete
Next
End If
Next
end sub
Gruß
Claus
LÖSUNG 14.10.2011 um 15:13 Uhr
Hallo cbli!
Vielleicht beschreibst Du nochmals, wie die veränderte Zielsetzung lautet ...
Dein Ansatz versucht in den Zeilen 34 - 37, eine ev bereits gelöschte / verschobene Datei nochmals zu verarbeiten ...
[Edit] Falls ich das richtig interpretiere, soll eine vorhandene Datei nur durch eine größere Datei überschrieben werden; in diesem Fall etwa so (ungetestet):
[/Edit]
[Edit2] In Zeile 21 "moveordner" auf "zielfolder" geändert [/Edit2]
Grüße
bastla
Vielleicht beschreibst Du nochmals, wie die veränderte Zielsetzung lautet ...
Dein Ansatz versucht in den Zeilen 34 - 37, eine ev bereits gelöschte / verschobene Datei nochmals zu verarbeiten ...
[Edit] Falls ich das richtig interpretiere, soll eine vorhandene Datei nur durch eine größere Datei überschrieben werden; in diesem Fall etwa so (ungetestet):
'###################################################################################################
' Dateien umbenennen,nummerieren und in Zielordner verschieben
'###################################################################################################
oname = fso.GetBaseName(objitem.Value)
If Right(zielfolder, 1) <> "\" Then zielfolder = zielfolder & "\"
For Each sTyp In aTypen 'Dateitypen
ofilecounter = 0
For Each oFile In fso.GetFolder(moveordner).Files 'Quelldateien
If LCase(fso.GetExtensionName(oFile.Path)) = sTyp Then
ofilecounter = ofilecounter + 1
oFile.Name = oname & " - cd" & ofilecounter & "." & sTyp 'jede Datei umbenennen und mit lfd Nummer versehen und ...
WScript.Echo ofile.name
If fso.FileExists(zielfolder & oFile.Name) Then 'Zieldatei
Set oFileZiel = fso.GetFile(zielfolder & oFile.Name)
If oFileZiel.Size >= oFile.Size Then
oFile.Delete
Else
oFileZiel.Delete
oFile.Move zielfolder
End If
Else
oFile.Move zielfolder
End If
End If
Next
If ofilecounter = 1 Then 'Wenn es nur eine Datei war, ...
If fso.FileExists(zielfolder & oname & "." & sTyp) Then
If fso.GetFile(zielfolder & oname & "." & sTyp).Size >= fso.GetFile(zielfolder & oname & " - cd1." & sTyp).Size Then
fso.GetFile(zielfolder & oname & " - cd1." & sTyp).Delete
Else
fso.GetFile(zielfolder & oname & "." & sTyp).Delete
fso.GetFile(zielfolder & oname & " - cd1." & sTyp).Name = oname & "." & sTyp '... die Laufnummer (" - 1") wieder entfernen
End If
Else
fso.GetFile(zielfolder & oname & " - cd1." & sTyp).Name = oname & "." & sTyp '... die Laufnummer (" - 1") wieder entfernen
End If
WScript.Echo "1 " & sTyp & "-Datei wurde in zielfolder verschoben"
ElseIf ofilecounter > 1 Then
WScript.Echo ofilecounter & " " & sTyp & "-Dateien wurden in zielfolder verschoben"
End If
Next
'###################################################################################################
'
' Alle verbliebenen Dateien im moveordner löschen
'
'###################################################################################################
fso.DeleteFile moveordner & "\*.*". True
End If
Next
End Sub
[Edit2] In Zeile 21 "moveordner" auf "zielfolder" geändert [/Edit2]
Grüße
bastla
LÖSUNG 14.10.2011 um 16:17 Uhr
Hallo bastla
Habe gerade deinen Code getestet und bei Archiven mit einer Datei funktioniert es.
Bei Archiven mit 2 oder mehr Dateien wird die Nummerierung nicht korrekt ausgeführt.
z.B
Es sind bereits diese Dateien vorhanden
Ist nun 1 der zu entpackenden Dateien größer als obenstehende sollte diese ohne den Namen zu ändern überschrieben werden.
Als Ergebnis wird die größere Datei kopiert ,aber mit der Nummerierung wird weitergemacht
Es sieht dann so aus
D.h die Lohn - 1.xls wird als Name nicht mehr verwendet,was aber in meinem Beispiel der Fall sein sollte.
Ergebnis sollte sein:
Sind 2 Dateien die zu entpacken sind,größer als die bereits existierenden Dateien, bekomme ich folgendes Ergebnis
Was ist noch zu ändern ?
Vielen Dank
Gruß
Claus
Habe gerade deinen Code getestet und bei Archiven mit einer Datei funktioniert es.
Bei Archiven mit 2 oder mehr Dateien wird die Nummerierung nicht korrekt ausgeführt.
z.B
Es sind bereits diese Dateien vorhanden
Lohn - 1.xls
Lohn - 2.xls
Lohn - 2.xls
Ist nun 1 der zu entpackenden Dateien größer als obenstehende sollte diese ohne den Namen zu ändern überschrieben werden.
Als Ergebnis wird die größere Datei kopiert ,aber mit der Nummerierung wird weitergemacht
Es sieht dann so aus
Lohn - 2.xls
Lohn - 3.xls
Lohn - 3.xls
D.h die Lohn - 1.xls wird als Name nicht mehr verwendet,was aber in meinem Beispiel der Fall sein sollte.
Ergebnis sollte sein:
Lohn - 1.xls
Lohn - 2.xls
Lohn - 2.xls
Sind 2 Dateien die zu entpacken sind,größer als die bereits existierenden Dateien, bekomme ich folgendes Ergebnis
Lohn - 3.xls
Lohn - 4.xls
Lohn - 4.xls
Was ist noch zu ändern ?
Vielen Dank
Gruß
Claus
LÖSUNG 14.10.2011 um 16:31 Uhr
LÖSUNG 14.10.2011 um 18:26 Uhr
Zitat von @bastla:
Hallo cbli!
Ändere mal (mach ich oben auch) in Zeile 21
auf
(und BTW: warum einmal "ordner" und dann wieder "folder"?) ...
Hallo cbli!
Ändere mal (mach ich oben auch) in Zeile 21
oFile.Move moveordner
>
oFile.Move zielfolder
>
Habe einen Teil dieses Scripts aus einem uralten Script kopiert ,in dem ich noch diesen mishmasch hatte.
Mache ich öfters so,wenn ich den Code für gewisse Funktionen brauche.
Hatte aber eh vor das zu korrigieren sobald alles 100% tig läuft.
Hallo bastla
Deine letzte Änderung hats gebracht. Habe noch nicht alles vollständig ausgetestet,aber bisher gabs keine Fehler mehr.
Ich danke dir wirklich recht herzlich,wünsche dir ein schönes Wochenende und werde mir dir deinen Code genauestens anschauen.
Gruß
Claus
LÖSUNG 24.10.2011 um 23:56 Uhr