Script na hromadný přesun souborů a přejmenování

návod jak na to (a částečné řešení, stačí si jen upravit k obrazu svému) je zde:

http://pc.poradna.net/question/view/43896-soft-na-h romadne-prejmenovani-souboru-v-adresari-podle-nazv u -adresare#re-44208

edit: klidně ti to napíšu, ale až někdy o víkendu. Teď na srandičky nemám moc čas.

anebo použij TotalCommander a jeho nástroj hromadného přejmenování, pokud je to jednorázová akce.

To se týká přejmenování,ale co s přesunem těch souborů ?

přesun je už ruční záoležitost.

Ruční záležitost , nesmysl...
Kdybych to měl dělat ručně tak se z toho osypu a nemusel bych sem ani psát,ten přesun je pro mě důležitější než přejmenování,to už se dá zvládnout několika způsoby.

no tak to budeš muset počkat do víkendu , anebo si to upravit sám.

Kdyby jsi byl od té dobroty a něco vykoumal tak ti budu nesmírně zauzlen. Rád počkám,zatím dík.

Jen se připomínám,aby jsi na mě nezapoměl

snad dneska odpoledne, když se mi podaří zaúčtovat tu kopu faktur

docela jsem to testoval, ale jistota je jistota, doporučuji před akcí mít zálohu

 Dim fso, f, file, path, warning, stary, novy, a, b, i, j
  path = InputBox("Zadejte cestu k nadřazenému adresáři ve kterém se nachází adresáře s obrázky")
  warning = MsgBox("Budou přejmenovány a přesunuty soubory v podadresářích tohoto adresáře: " & path & ". Je to správně?", 276, "Poslední záchrana") 
  if warning = 6 then
  	Set fso = CreateObject("Scripting.FileSystemObject")
  	For i = 1 to 37
		Set f = fso.GetFolder(path & "\" & i)
		fso.MoveFile f.path & "\mapa_run_" & i & ".png", f.path & "\mapa_run_" & i & "_1" & ".png"
		a = 1
		b = 3
		For j = 1 to 513
			stary = f.path & "\mapa_run_" & i & "_" & j & ".png"
			novy = f.path & "\" & i & "-" & ((j+8)\9) & "\" & a & b & ".png"
			fso.MoveFile  stary, novy
			b = b - 1
			
			if b = 0 then
				b = 3
				a = a + 1
				if a = 4 then
					a = 1
				end if
			end if
		next	
	next
end if

Podotýkám, že to je docela humpolácké, nechtělo se mi vymýšlet algoritmus na výpočet nového jména z pořadí (myslím, že by to šlo, jednu polovinu (pravou část bych věděl snad z fleku, ale nad zbytkem se mi nechtělo přemýšlet )

Díky moc,vyzkouším a dám vědět jak to valí.
Nemohl jsem to otestovat hned protože mám momentálně celkem zasekanej disk a chci to,jak píšeš,nejdříve zálohovat,je toho cca 20GB.

Omlouvám se, ale teprve dnes jsem se dostal na otestování tvého scriptu,narodil se mi totiž syn a tak jsem měl na krku zcela jiné záležitosti
Spustil jsem script,ale přejmenování a přesun proběhl pouze ve složce 1 a potom script vypsal chybu Řádek:8 Znak:3 soubor nenalezen Kód: 800A0035
Dále je pro mě důležité přejmenovat soubory podle pořadí.
Tak prosím kdyby jsi opět našel chvilku času....

narodil se mi totiž syn

Blahopřejeme!

Pavel

narodil se mi totiž syn

hmmm... tak to teda musela být teda šňůra, žes vystřízlivěl až včilkaj

jestli tam máš "soubor nenalezen", tak jsi špatně definoval zadání.

Pořadí musí být správně, protože se jména souborů nečtou, ale iterují z cyklu. Tudíž to je přesně dle tvého zadání

edit: ještě mě napadá, že jsi špatně zvolil startovací adresář.

Zkoušel jsem to znova a jak jsem psal,změny se provedou pouze v podadresáři 1

Vypadá to že script nenajde cestu k dalším podadresářům 2 až 37,protože vše perfektně proběhne pouze v podadresáři 1 a pak to vyhodí tu hlášku s chybou...

Na hromadné přejmenování je dobrý program NameIt,
starší verze je zde :

nameit.zip

Nejlepší by bylo,kdybych ti mohl poslat simulaci složek a souborů a ty by jsi to mohl rovnou vyzkoušet. Je to v archivu,má to jen 350kb a jsou tam jen podadresáře 1-10 což na test stačí.
prospector@seznam.cz

Nezapoměl jsi na mě

nezapomněl, ale tys mi neodpověděl na mail

edit: aha. odpověděl:

WARNING: possible mail bomb, NOT CHECKED FOR VIRUSES:
Maximum number of files (1500) exceeded at /usr/local/sbin/amavisd line 4893.

trošku jsi asi popletl pošťáka na Atlasu a on mě to hodil do spamu.

zítra na to kouknu.

No to víš já jsem známej spamer Dík

Z toho první číslo v názvu je vždy stejné jako název složky ve které je adresář uložen tzn. že např. ve složce 7 budou adresáře 7-1 7-2 7-3 až 7-57

.. a ty máš v každém adresáři soubory mapa_run_1_X

To je jen výsek z mého zadání,když to přečteš celé a zároveň si kreslíš zadání tak je to přesně tak jak jsem napsal. Možná jsem to mohl napsat srozumitelněji,ale důležité je že jsme se nakonec domluvili a skriptík jsi zvládl na 1*
Díky moc,jsem tvůj dlužník,ovšem nevím jak ti to splatit...

poslední verze, podle upraveného zadání :

Dim fso, f, sf, sfl, folder, file, filelist, counter, warning, stary, novy
  path = InputBox("Zadejte cestu k nadřazenému adresáři ve kterém se nachází adresáře s obrázky")
  warning = MsgBox("Budou přejmenovány a přesunuty soubory v podadresářích tohoto adresáře: " & path & ". Je to správně?", 276, "Poslední záchrana") 
  if warning = 6 then
  	Set fso = CreateObject("Scripting.FileSystemObject")
  	For i = 1 to 37
		Set f = fso.GetFolder(path & "\" & i)
		fso.MoveFile f.path & "\mapa_run_1.png", f.path & "\mapa_run_1_1.png"
		a = 1
		b = 3
		For j = 1 to 513
			stary = f.path & "\mapa_run_" & "1" & "_" & j & ".png"
			novy = f.path & "\" & i & "-" & ((j+8)\9) & "\" & a & b & ".png"
			fso.MoveFile  stary, novy
			b = b - 1
			
			if b = 0 then
				b = 3
				a = a + 1
				if a = 4 then
					a = 1
				end if
			end if
		next	
	next
end if

Script pracuje opravdu skvělě,máš můj obdiv