Aus Dokumenten automatisch Ordner erstellen

Aus Dokumenten automatisch Ordner erstellen (11 Beiträge, 239 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Hallo zusammen

Ich habe ein Problem und zwar muss ich tausende von Dokumenten (pdf,doc,xls) von einem Ordner in einen anderen Ordner kopieren und gleichzeitig jeweils einen Unterordner erstellen. Pro Dokument ein Unterordner (nach Dateinamen).

Z.B:

von: C:\Test\Hans Meier AG_Export.pdf

nach C:\Test\Hans Meier AG\Hans Meier AG_Export.pdf

Das Kopieren und die Erstellung der Unterordner müsste automatisch gemacht werden.

Ich habe bereits nach verschiedenen Lösungen gesucht, aber nichts gefunden, womit ich etwas anfangen könnte. Ich denke mit einem Batch würde es gehen, da ich aber in diesen Dingen eine absolute Pfeife bin, bräuchte ich damit etwas Hilfe.

Ich habe im Forum bereits diesen Batch gefunden:

for /f "tokens=1,2 delims=_ " %%i in ('dir /b *.*') do (
if not exist %%i md %%i
move %%i_%%j %%i\%%i_%%j
)

Dieser Batch erstellt mir zwar die Ordner, aber nur mit dem 1. Namen. Alles was nach dem Leerschlag kommt, wird nicht erstellt (Der Ordner wird als "Hans" erstellt und nicht als Hans Meier AG). Es ist notwendig, dass alles bis zum "_" als Ordnername übernommen wird.
Ebenfalls werden die Dokumente nicht automatisch in die neuen Ordner kopiert.

Kann mir da jemand weiterhelfen?

Besten Dank im Voraus

Gruss,
Sweden12

Hi!

Das Batchfile hab ich damals für ganz andere Anforderungen gebastelt, das kann bei Dir nicht richtig laufen.

Auch wird es nicht bei so einem simplen File bleiben, weil ich mal stark annehme, dass nicht alle Deine Files aus zwei Leerzeichen bis zum Underscore bestehen bzw. immer nur ein Underscore im Namen vorkommt... so flexibel lässt sich ein Standard-Batch wahrscheinlich nicht machen, dass er eine Vielzahl von Möglichkeiten berücksichtigt.

Ich schau aber mal, ob sich das nicht doch irgendwie per Script lösen lässt; bräuchte nur genaue und verbindliche Angaben...

greetz

glockman

- I don't need any sex. Life screws me every day... -

It's a Thing...

You wouldn't understand.

Hallo Glockman

Besten Dank für die schnelle Antwort. Ja, es ist richtig, das Beispiel stammt von Dir. Da ich aber wie erwähnt wirklich keine Ahnung betreffend Batchfiles habe, dachte ich mir dass es vielleicht in dieser Richtung etwas geben könnte.

Es ist in der Tat so, dass nicht alle Filenamen gleich sind. Da es aber ca. 95% der zu bearbeitenden Files sind, wäre es nicht so schlimm, wenn der Rest von Hand gemacht werden müsste. Trotzdem kann ich hier mal die verschiedenen Kombinationen aufzählen:

Hans Meier AG_Export.pdf
Hans Meier AG.pdf
Meier AG_Export.pdf
Meier AG.pdf
Meier.pdf
Meier_Export.pdf
Hans-Meier AG_Export.pdf
Hans-Meier AG.pdf
Hans-Meier-AG.pdf

Sicher ist, dass falls ein Underscore vorkommt, alles vor dem Underscore als Ordnername generiert werden müsste. Es gibt keine "Namen" welche mit einem Underscore geschrieben werden.

Ich hoffe dies ist etwas verständlicher und ausführlicher.

Besten Dank im Voraus für Deine Hilfe

Gruss,

Sweden12

So, habe wieder mal gebastelt:

Option Explicit

Dim fso, fldr, fls, fl

Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("V:\Test")
Set fls = fldr.Files
For Each fl in fls
    If InStr(fl.Name, "_") Then
       If Not fso.FolderExists("V:\Test\" & Mid(fl.Name, 1, InStrRev(fl.Name, "_") -1)) Then
           fso.CreateFolder("V:\Test\" & Mid(fl.Name, 1, InStrRev(fl.Name, "_") -1))
       End If
       fso.CopyFile fl.Path, "V:\Test\" & Mid(fl.Name, 1, InStrRev(fl.Name, "_") -1) & "\"
    End If
Next

Set fso = Nothing
Set fldr = Nothing
Set fls = Nothing

Kopier das in eine leere Datei und gib ihr irgendeinen Namen, Endung muss aber ".vbs" lauten. Die Datei kann zwar im selben Verzeichnis sein wie die Quelldateien, aber ich würde sie nicht dorthin geben.

Du wirst sehr wahrscheinlich den Pfad ausbessern müssen (also das "V:\Test" gegen Deinen Pfad tauschen), aber der Rest läuft dann richtig ab.
Wichtig wäre auch noch zu erwähnen, dass alle Ordner als Unterordner dieses Ordners angelegt werden.
Die Dateien werden dann in die Unterordner kopiert, NICHT verschoben.

Das Standard-Satzl darf auch nicht fehlen: ich übernehme keine Haftung für etwaige Schäden und/oder Datenverlust, der bei Dir auftritt.

hth,

greetz

glockman

- I don't need any sex. Life screws me every day... -

It's a Thing...

You wouldn't understand.

Hallo Glockman

Besten Dank für das Script. Ich habe es ausprobiert und ich würde sagen so ca. 70 Prozent der Files wurden erfolgreich "verarbeitet". Ich habe aber keine Ahnung warum die restlichen 30% nicht in Ordner umgewandelt worden sind. Es handelt sich um die Dateinamen welche ohne Underscore gespreichert worden sind:

Hans Meier AG.pdf
Hans-Meier AG.pdf
etc.

Hast Du eine Idee was im Script geändert werden müsste, damit auch für diese Datein ein Ordner angelegt wird?

Gruss und nochmals Danke für Deine Hilfe
Sweden12

So, hier Variante 2:

Option Explicit

Dim fso, fldr, fls, fl

Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("V:\Test")
Set fls = fldr.Files
For Each fl in fls
    If InStr(fl.Name, "_") Then
       If Not fso.FolderExists("V:\Test\" & Mid(fl.name, 1, InStrRev(fl.name, "_") -1)) Then
           fso.CreateFolder("V:\Test\" & Mid(fl.name, 1, InStrRev(fl.name, "_") -1))
       End If
       fso.CopyFile fl.Path, "V:\Test\" & Mid(fl.name, 1, InStrRev(fl.name, "_") -1) & "\"
    End If
    If InStr(fl.Name, "_") = False Then
       If Not fso.FolderExists("V:\Test\" & Left(fl.Name, InStrRev(fl.Name, ".") -1)) Then
          fso.CreateFolder("V:\Test\" & Left(fl.Name, InStrRev(fl.Name, ".") -1))
       End If
       fso.CopyFile fl.Path, "V:\Test\" & Left(fl.Name, InStrRev(fl.Name, ".") -1) & "\"
    End If
Next

Set fso = Nothing
Set fldr = Nothing
Set fls = Nothing

Wie vorhin bitte die Pfade ausbessern.
Jetzt werden auch all jene Files kopiert, die keinen Underscore im Namen haben. Sollte ein Ordner schon existieren dann werden sie dort hineinkopiert, falls nicht wird er angelegt.

Ich habe aber keine Ahnung warum die restlichen 30% nicht in Ordner umgewandelt worden sind. Es handelt sich um die Dateinamen welche ohne Underscore gespreichert worden sind:

Ich schon: hast Du nicht explizit in die Erstanforderung geschrieben

greetz

glockman

- I don't need any sex. Life screws me every day... -

It's a Thing...

You wouldn't understand.

musst das nur einmalig machen

dann wäre ich zu faul ein batchfile auszudenken und würds im excel und/oder ultraedit machen ...

mit dir /b >file.txt
dann noch ein bisschen excel spielen znd/oder copy&past usw. ein .bat file erstellen
mit den MD und eines mit den copy (bzw. move) pro file eine zeile...

wär unter den gesichtspunkten sicher die effizienteste lösung!

lg

s c h ö n e s c h e i s s e, d a u e r n d d a s s e l b e

Hallo adhoc

Ja, ich muss dies nur einmalig machen (zum Glück...

)

Leider habe ich keine Ahnung was Du mit deinen Vorschlägen meinst. Kannst Du mir dies etwas genauer erklären?

Besten Dank im Voraus

Gruss,
Sweden12

^ Forum Programmierung #4863723
	Re(3): Aus Dokumenten automatisch Ordner erstellen

Ardjan

18.06.2008, 22:35:54

Ich hätte auch mit Excel gearbeitet.

In etwa wie folgt:
* Im DOS-Fenster dir >files.txt eingeben, es entsteht eine Datei mit dem Verzeichnis drinnen.
* Diese Datei in Excel importieren.
* Mittels der Funktion "Text in Spalten" (in Menü Extras oder Daten) die Dateinamen auf Underscore trennen. Jetzt hast du Files die du in Name + Ordner trennen musst, in zwei Spalten stehen. Nehmen wir an das die Dateinamen in C:C landen und die Ordnernamen in D:D.
* Jetzt in eine leere Spalte eine Formel wie

="Copy """ & C2 & "_" & D2 & ".pdf""" " & D2 & "\" & C2 & ".pdf"

schreiben. Das Ergebnis wird dann zB

copy "Hans Mayer ag.pdf" "export\Hans Mayer ag.pdf"

lauten. Mit den Anführungszeichen wirst du etwas spielen müssen.
* Dann nimmst du die Ergebnisspalte und kopierst das in ein leeres Textdokument, welches du nach xyz.bat umbenennst...

Save the Earth... it's the only planet with chocolate.

Ich glaube, die Evolution hat gemerkt, dass Intelligenz nichts bringt und geht jetzt wieder in die Gegenrichtung

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung