Software, batch pre pracu s vela subormi

Všetko o programoch, problémoch...
POZOR: žiadny WAREZ
Používateľov profilový obrázok
glirpi
Používateľ
Používateľ
Príspevky: 1270
Dátum registrácie: Ne 09. Máj, 2010, 03:36
Bydlisko: Handlova / okres PD

Software, batch pre pracu s vela subormi

Príspevok od používateľa 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.
I♥C64 0,97Mhz CPU, 64KB RAM, VIC-II GPU (320x200 multicolor / 16 farieb) a aka zabava..
Spoiler: ukázať
PC: CPU: INTEL Core i5-9600KF / CPU-COOLER: NZXT Kraken X52 / MB: GIGABYTE Z390 M / RAM: Corsair 16 GB KIT DDR4 3600 MHz CL18 Vengeance LPX / SSD: WD Black SN750 NVMe SSD 1 TB / DVD-RW: - / PSU: Seasonic X-Series 560W / CASE: NZXT H400 / VGA: GIGABYTE GeForce RTX3060 GAMING OC 12GB / SOUND: SOUND BLASTER AE-7 / SPEAKERS: - / HEADPHONES: BEYERDYNAMIC DT 770 PRO (80 ohm) / LCD: DELL UltraSharp U2717D 27" / KEYBOARD: DELL Premier Wireless Keyboard / MOUSE: DELL KM717 / GAMEPAD: MICROSOFT Xbox 360 wireless controller / OS: MICROSOFT Windows 10 PRO 64Bit
Používateľov profilový obrázok
Snake
VIP
VIP
Príspevky: 13677
Dátum registrácie: Ne 23. Júl, 2006, 02:00
Bydlisko: Bratislava/Galanta

Re: Software, batch pre pracu s vela subormi

Príspevok od používateľa Snake »

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





.
Používateľov profilový obrázok
glirpi
Používateľ
Používateľ
Príspevky: 1270
Dátum registrácie: Ne 09. Máj, 2010, 03:36
Bydlisko: Handlova / okres PD

Re: Software, batch pre pracu s vela subormi

Príspevok od používateľa 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 :)
I♥C64 0,97Mhz CPU, 64KB RAM, VIC-II GPU (320x200 multicolor / 16 farieb) a aka zabava..
Spoiler: ukázať
PC: CPU: INTEL Core i5-9600KF / CPU-COOLER: NZXT Kraken X52 / MB: GIGABYTE Z390 M / RAM: Corsair 16 GB KIT DDR4 3600 MHz CL18 Vengeance LPX / SSD: WD Black SN750 NVMe SSD 1 TB / DVD-RW: - / PSU: Seasonic X-Series 560W / CASE: NZXT H400 / VGA: GIGABYTE GeForce RTX3060 GAMING OC 12GB / SOUND: SOUND BLASTER AE-7 / SPEAKERS: - / HEADPHONES: BEYERDYNAMIC DT 770 PRO (80 ohm) / LCD: DELL UltraSharp U2717D 27" / KEYBOARD: DELL Premier Wireless Keyboard / MOUSE: DELL KM717 / GAMEPAD: MICROSOFT Xbox 360 wireless controller / OS: MICROSOFT Windows 10 PRO 64Bit
macejd
Nový používateľ
Nový používateľ
Príspevky: 174
Dátum registrácie: So 06. Jún, 2009, 20:20
Bydlisko: Žilina

Re: Software, batch pre pracu s vela subormi

Príspevok od používateľa 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.

Návrat na "Programy a problémy s nimi"