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