Software, batch pre pracu s vela subormi

[glirpi]

Caute. Ak som temu zaradil do nespravnej sekcie, ospravedlnujem sa.

Potrebujem poradit, pomoct. mam zlozky a v niektorych z nich je napriklad aj cez 10 000 dalsich zloziek a kazda zlozka obsahuje jeden subor. Existuje program, ktory by vedel preskenovat mnou zvolenu zlozku, vytvoril nove zlozky podla abecedy a tieto preskenovane zlozky automaticky zaradil podla nazvu do prislusnej novovytvorenej zlozky podla jej zaciatocneho pismena. Uplne super by bolo ak by sa dalo vytiahnut ten jeden subor ktory je v tej zlozke a iba tento presunul pod dane pismeno.

Neviete niekto poradit? Alebo ma aspon naviest na vytvorenie batch suboru, ktory ak by som spustil v danej zlozke, urobil by to tak isto automaticky?

Dik.

[Snake]

Moc obsirne napisane, ked vyspecifikujes, ukazes pattern, potom mozme odpovedat.

[glirpi]

Potrebujem, aby sa mi automaticky vytvorili zlozky podla abecedy. 0, A, B, C .. Z.

Napr. zlozka GAMES obsahuje zlozky:
Amaurite
Armagedon
Blue max
Clystron
Elephan
Fist
Gunship
Goman
Gyroscope
Hunter
..
..
..
Zaxon

No a potrebujem, aby Amaurite a Aramagedon boli automaticky presunute do zlozky z nazvom A, blue max do zlozky B, atd..

Snad som to uz popisal lepsie

[macejd]

Dalo by sa to cez nejaký takýto VBS script:

Kód: Vybrať všetko

Dim fs, f, f1, fc, oldf, newf, con
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("C:\Games")
Set fc = f.SubFolders
For Each f1 in fc
    oldf = f1.name
    con = UCase(Left(oldf,1))
    Select Case con
      Case "A"
        If Not(fs.FolderExists("D:\TEMP\A\")) Then
           fs.CreateFolder "D:\TEMP\A\"
        End If
      newf = "D:\TEMP\A\" & oldf
      oldf = "C:\Games\" & oldf
      fs.CopyFolder oldf,newf
      Case "B"
        If Not(fs.FolderExists("D:\TEMP\B\")) Then
           fs.CreateFolder "D:\TEMP\B\"
        End If
      newf = "D:\TEMP\B\" & oldf
      oldf = "C:\Games\" & oldf
      fs.CopyFolder oldf,newf
    End Select
Next

"C:\Games" je adresár z ktorého kopíruješ.
"D:\TEMP" je adresár do ktorého kopíruješ a už bol vytvorený predtým.
Ostatné Case pre celú abecedu si doplň sám.