Zdar a silu Miro, dna 30.09.2003 si napisal(a): > > este jeden pokus spravim, lebo to zacinam dost potrebovat. > nepozname program, alebo skript, ktory by dokazal toto? > 1 spyta sa na zdrojovy disk (pismeno mechaniky) > 2 spyta sa na cielovy disk (pismeno hdd) > 3 otvori CD a caka > 4 po zasunuti CD zalozi adresar s nazvom dnesny datum-cas-teraz-nazov-CD-v-mechanike > 5 kopiruje cd *.* do zalozeneho adresara. > ak chyba, opakuj 2× ak sa neda preskoc a kopiruj dalsie subory. > zapis do suboru s nazvom dnesny datum-cas teraz-nazov CD v mechanike > aky subor alebo adresar sa nedal kopirovat. > 6 po ukonceni vysun CD > 7 prehraj zvuk zvuk.wav > 8 pokracuj z bodu 3 > v najhorsom by nemuselo robit zapis chyb o necitatelnych suboroch... > proste potrebujem valit CD na HDD bez toho, aby som sa dotkol klavesnice > a aby v tom vznikol aspon minimalny naznak systemu. > Miro Vesely > Vasa fotka na tricku za 10 minut. Navod na nazehlovanie fotiek... > http://www.digifotoinfo.sk/tipy_nazehlovenie_obrazkov_na_tricka.php UZ NA TOM PRACUJEM :-) Kua a j s caps lockom, ak tam nemusi byt to ten log tak je to very simple Potrebujes k tomu dva exe od autora totalcommanderu Load.exe Eject.exe (hledej smudlo) Skopni a uloz ako vbs Testni (data na cd to urcite nezmaze:-))) '****************cut *********************** Set MyShell=Wscript.CreateObject("Wscript.Shell") Dim fso, d, dc, s, n Set fso = CreateObject("Scripting.FileSystemObject") Set dc = fso.Drives 'prepisat cestu ku suboru eject MyShell.run "c:\TEMP\vb\EJECT.EXE",,true otvor_spusti sub otvor_spusti 'tento wav si mozno tiez upravit MyShell.run "C:\WINDOWS\Media\wi8680~1.wav",,false response =msgbox ("LOAD New CD and start COPY?",4) if response = 6 then 'prepisat cestu ku suboru load MyShell.run "c:\TEMP\vb\Load.EXE",,true premenne=split(ShowDriveList,";") cas = replace(replace(now,":","_"),".","_") 'tu treba zmenit cestu c:/temp teda_kam to ma kopirovat' return = MyShell.run("xcopy " _ & premenne(0) & ":\ " & chr(34) & _ "c:\temp\" & cas & premenne(1) & chr(34) & _ "\ /c /s /h /r /y /e ",1,True) 'prepisat cestu ku suboru eject MyShell.run "c:\TEMP\vb\EJECT.EXE",,true otvor_spusti end if end sub Function ShowDriveList For Each d in dc n = "" If d.DriveType = 4 then do while d.IsReady = false loop s = d.DriveLetter & ";" n = d.VolumeName exit for End If Next ShowDriveList = s & n End Function 'end cut ********************************** s pozdravom AleXXX -- Ked budem velky budem ZÁMYSELNIK. Neviem co to je, ale znie to bohovo. ---------- * www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA * Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk) * www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO * Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu (zme.zoner.sk)
This archive was generated by hypermail 2.1.3 : 30. 09. 2003, 17:28 CEST