Unterordner in Ordner erstellen+einsortieren Script

[Houseuser]

Hallo,

ich habe hier zig tausend Ordner die in mehrere Ebenen unterteilt sind
Bsp.


1. Verteiler
2. 51-xx99xx
3. 51-0099xx
4. 51-0099xx_Bedienungsanleitung
4. 51-0099xx_Bild
4. 51-0099xx_Datenblatt


in die 4. Unterebene muss nun ein neuer Ordner rein
"51-0099xx_QrCode"


bei ca 6000 Artikeln kommt da eine Menge Arbeit auf mich zu.
Gibt es da irgendein Programm oder script, was mir meine Arbeit etwas erleichtern könnte?

Hin zu kommt noch, das in jeden dieser neuen QR Code Ordner ein entsprechendes Bild rein muss. Also doppelte Sortierarbeit.
Eventuell kann ja jemand mein Problem verstehen und könnte helfen.

 

[hYpac0w]

Du könntest auf jeden Fall ein kleines Script schreiben, dass die Arbeit für dich erledigt, z.B. in Python.
Hast du Erfahrung im Coding?
Selbst wenn nicht kann man sich da schnell reinarbeiten

 

[Houseuser]

absolut keine Ahnung vom coden und auch keine Zeit zum erlernen. Muss hier alleine die Bude am laufen halten ( KMU)

 

[jumpin]

Was für ein Betriebssystem nutzt du denn?

Und hast du die QR-Codes bereits?

 

[Houseuser]

Was für ein Betriebssystem nutzt du denn?

Und hast du die QR-Codes bereits?

Win10Pro und die QR Codes liegen als .png vor.
Auch haben die .png Dateien zu 90% die richtigen Dateinamen
(wurden aus einer Excelliste mit den Artikelnummern erstellt)
Bevor die .png Dateien in die Ordner rein kommen, muss ich aber für jeden Artikel den Qr_Code Ordner erstellen

 

[hYpac0w]

Ich kann dir gerne behilflich sein aber dafür brauche ich definitiv mehr Informationen zu Odnerstruktur, Dateienamen, usw.

 

[jumpin]

Ein VB-Script (Textdatei mit Endung ".vbs") könnte ungefähr so aussehen:

Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")

verteiler = "C:\Scripts"

If Not fso.FolderExists(verteiler) Then
    Msgbox "Ordner existiert nicht!"
    WScript.Quit
End If

ersteEbene verteiler

'Erste Ebene, ordnerPfad = Verteiler
Sub ersteEbene(ordnerPfad)
    Set fsoFolder1 = fso.GetFolder(ordnerPfad)
    For Each subfolder In fsoFolder1.SubFolders
        zweiteEbene subfolder.path
    Next
End Sub

'Erste Ebene, ordnerPfad = 51-xx99xx
Sub zweiteEbene(ordnerPfad)
    Set fsoFolder1 = fso.GetFolder(ordnerPfad)
    For Each subfolder In fsoFolder1.SubFolders
        dritteEbene subfolder.path
    Next
End Sub

'Zweite Ebene: 51-0099xx
Sub dritteEbene(ordnerPfad)
    ordnerName = Mid(ordnerPfad, InStrRev(ordnerPfad, "\")+1)
    neuerOrdnerName = ordnerName & "_QrCode"
    neuerOrdnerPfad = fso.BuildPath(ordnerPfad, neuerOrdnerName)
    If Not fso.FolderExists(neuerOrdnerPfad) Then
        fso.CreateFolder neuerOrdnerPfad
    End If
    'Kopiere QR-Code
End Sub

Zeile Vier müsstest du natürlich anpassen, diese Zeile sollte deinem Ordner entsprechen.
Da du noch nicht gesagt hast, wo und mit welchem Dateinamen die QR-Codes vorliegen, habe ich diesen Teil mal noch weggelassen.

 

[Houseuser]

Ein VB-Script (Textdatei mit Endung ".vbs") könnte ungefähr so aussehen:

Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")

verteiler = "C:\Scripts"

If Not fso.FolderExists(verteiler) Then
    Msgbox "Ordner existiert nicht!"
    WScript.Quit
End If

ersteEbene verteiler

'Erste Ebene, ordnerPfad = Verteiler
Sub ersteEbene(ordnerPfad)
    Set fsoFolder1 = fso.GetFolder(ordnerPfad)
    For Each subfolder In fsoFolder1.SubFolders
        zweiteEbene subfolder.path
    Next
End Sub

'Erste Ebene, ordnerPfad = 51-xx99xx
Sub zweiteEbene(ordnerPfad)
    Set fsoFolder1 = fso.GetFolder(ordnerPfad)
    For Each subfolder In fsoFolder1.SubFolders
        dritteEbene subfolder.path
    Next
End Sub

'Zweite Ebene: 51-0099xx
Sub dritteEbene(ordnerPfad)
    ordnerName = Mid(ordnerPfad, InStrRev(ordnerPfad, "\")+1)
    neuerOrdnerName = ordnerName & "_QrCode"
    neuerOrdnerPfad = fso.BuildPath(ordnerPfad, neuerOrdnerName)
    If Not fso.FolderExists(neuerOrdnerPfad) Then
        fso.CreateFolder neuerOrdnerPfad
    End If
    'Kopiere QR-Code
End Sub

der CR_Code Ordner muss aber am Anfang den Name des Ober Ordner haben. Wurde damals blöd gelöst und und nun nicht mehr zu ändern

 

[jumpin]

Macht es in Zeile 32:

neuerOrdnerName = ordnerName & "_QrCode"

Sieht dann ungefähr so aus:

Spoiler

Alte Struktur:
+---asdf
| +---qwert
| +---rwert
| \---swert
+---bsdf
| +---qwert
| +---rwert
| \---swert
\---csdf
+---qwert
+---rwert
\---swert

Nach dem durchführen des Scripts:
+---asdf
| +---qwert
| | \---qwert_QrCode
| +---rwert
| | \---rwert_QrCode
| \---swert
| \---swert_QrCode
+---bsdf
| +---qwert
| | \---qwert_QrCode
| +---rwert
| | \---rwert_QrCode
| \---swert
| \---swert_QrCode
\---csdf
+---qwert
| \---qwert_QrCode
+---rwert
| \---rwert_QrCode
\---swert
\---swert_QrCode