CDs automatisch auf HDD kopieren

Hi,
Hab riesen Problem:
Ich habe an die 500 CDs/DVDs die langsam aber sicher sich auflösen!
Im PC hab ich aber noch gut 1,5TB frei, will also alle CDs auf die HDD kopieren!
Nur das kopieren ist ätzend, also will ich das vereinfachen!


Ich will das genau das von einem Skript (oder sonstigen) ausgeführt wird:

1. Testen ob ne CD eingelegt ist (bzw. ob Dateinen im Laufwerk sind)
2. Dann Daten von Laufwerk in einen speziellen Ordner auf die HDD kopieren (aber testen ob Datei schon vorhanden ist, wenn vorhaden einfach z.B. "2" an Dateinamen anfügen)
3. Wenn Dateien kopiert sind CD-Laufwerk auswerfen (geht bei mir mit "nircmd.exe cdrom open k:")
4. und dann wieder alles von vorne (Endlosschleife, die man aber irgendwie auch abbrechen sollte)

Alle Dateien sollen immer in den selben Ordner auf der HDD kopiert werden!


Hab schon nach ein paar Sachen gegoogelt, hat aber alles nie geklappt!


Wäre echt cool wenn mir jemand ein Programm nenen könnte, das das kann! Oder ein einfaches Skipt programmiern
HackerChirs


/edit:
Das z.B. wo ich nicht weiter komme: http://www.aqua-computer-systeme.de/...1197836670 / http://www.aqua-computer-systeme.de/...1197579958 / http://en.wikipedia.org/wiki/Robocopy

 

Danke erst mal

Das mit dem Iso ist nicht nötig! Alle CD und DVD sind reine Daten Disks ...

Ich hätte aber noch zwei Bitten:
Kannst du das mit den Unterordnern entfernen. Alle Dateien sollen in ein Ordner kopiert werden, das erspart mir viel Arbeit.
Und dann wäre es noch cool wenn sich das Programm nach einem erfolgreichen Kopiervorgang nicht selber beenden würde, sondern nur die Disk auswirft und wenn eine neue eingelegt ist das Spiel von vorne los geht!
Wäre das möglich?

 

Super danke für den Tipp!
Denn ein weißer Mann sage mal: "Geb den Leuten ein Skript und sie haben die Lösung für das eine Problem. Gebe ihnen aber das Wissen ein Skript zu schreiben und sie haben die Lösung für alle Skript Probleme!"
War zwar im Original mit Fischen und hunger haben, aber egal

He, bin grad am schreiben für ne eigene Datei, bekomm auch alles so weit hin nur mit der Progressbar hab ich echt Probleme!
Kannst du mir vllt die Zeilen mit der Progressbarschicken? Oder vllt auch dein ganzes Skript

Btw.: Wollt dir nen Reno geben, kann ich aber nicht!? Zeigt immer an das ich dir schon nen Reno gegeben hab ... muss ein Bug sein!

 

Also, hab immer noch ein Problem mit der ProgressBar!

HTML:

    $sitzeq = DirGetSize($quelle, 1); Byte / Dateien / Ordner
    $sitzez = DirGetSize($ziel, 1)
    $1pro = $sitzeq[0] / 100 ; Ein Prozent der Quell Bytes
    ProgressOn ("Es wird kopiert", "Von " & $quelle & " ==> " & $ziel & $subdir, Round($1pro, 0) & "%", 20, 20, 18)
    DirCopy ($quelle, $ziel & $subdir, 1)
    Do
        $sitzez = DirGetSize($ziel, 1)
        ProgressSet(Round($sitzez[0] / $1pro, 0), Round($sitzez[0] / 1024^2) & " MByte von " & Round($sitzeq[0] / 1024^2, 0) & " MByte kopiert" & @CR & $sitzez[1] & " von " & $sitzeq[1] & " Dateien kopiert" & @CR & $sitzez[2] & " von " & $sitzeq[2] & " Ordner kopiert!", Round($sitzez[0] / $1pro, 0) & " %")
        Sleep(200)
    Until $sitzeq[0] <= $sitzez[0]
    ProgressOff()

Das ist nur ein Ausschnitt vom Skript (Das Original ist schon 79 Zeilen lang )
Wieso hast du "xcopy" statt "DirCopy" verwendet?

Wenn ich bei mir "DirCopy" eine Zeile vor "ProgressOn" setzte, dann habe ich gar keinen Ladebalken! Wenn ich "DirCopy" so wie oben setze ist der Lade Balken nur das was in "ProgressOn" steht! Das aus "ProgressSet" wird nie angezeigt! Hast du vllt ne Erklärung dafür?


Da ist mal alles drin, wie es gerade aussieht:

Spoiler

titel = "AutoCDaufHDD"

$answer = MsgBox(1, $titel, "Kopieren starten?", 3)
If $answer <> 1 then
Exit
EndIf

$quelle = InputBox ($titel, "Bitte CD/DVD Laufwerk eingeben!", "K:")
If @error = 1 then Exit ; Wenn man Cancel drueckt wird der Dialog beendet!
$dr = DriveGetLabel ($quelle)
; Testen ob in der Quelle eine CD eingelegt ist!
While $dr = ""
MsgBox(0, $titel, "Keine CD eingelegt!")
$quelle = InputBox ($titel, "CD Laufwerk eingeben!", "K:")
If @error = 1 then Exit
$dr = DriveGetLabel ($quelle)
WEnd

$ziel = InputBox ($titel, "Ziel?", "J:\FilmeX")
If @error = 1 then Exit

$subdir = ""
$sub = MsgBox(4, $titel, "Soll ein Unterordner je CD angelegt werden? (Datum und Uhrzeit!)")

; Die endlos Schleife
While $dr <> ""
If $sub = 6 then
$subdir = "\" & @YEAR & "-" & @MON & "-" & @MDAY & "_" & @HOUR & "-" & @MIN & "-" & @SEC
EndIf
$sitzeq = DirGetSize($quelle, 1); Byte / Dateien / Ordner
$sitzez = DirGetSize($ziel, 1)
$1pro = $sitzeq[0] / 100 ; Ein Prozent der Quell Bytes
ProgressOn ("Es wird kopiert", "Von " & $quelle & " ==> " & $ziel & $subdir, Round($1pro, 0) & "%", 20, 20, 18)
DirCopy ($quelle, $ziel & $subdir, 1)
Do
$sitzez = DirGetSize($ziel, 1)
ProgressSet(Round($sitzez[0] / $1pro, 0), Round($sitzez[0] / 1024^2) & " MByte von " & Round($sitzeq[0] / 1024^2, 0) & " MByte kopiert" & @CR & $sitzez[1] & " von " & $sitzeq[1] & " Dateien kopiert" & @CR & $sitzez[2] & " von " & $sitzeq[2] & " Ordner kopiert!", Round($sitzez[0] / $1pro, 0) & " %")
Sleep(200)
Until $sitzeq[0] <= $sitzez[0]
ProgressOff()

; CD Laufwerk wird geoeffnet!
; Run("nircmd.exe cdrom open " & $quelle)

; Testen ob im Ziel genauso viel MB sind wie in der Quelle
$sitzeq = DirGetSize($quelle, 0)
$sitzez = DirGetSize($ziel, 0)
If $sitzeq[0] <= $sitzez[0] then
MsgBox(0, $titel, "Dateien erfolgreich von " & $quelle & " nach " & $ziel & $subdir & " kopiert!", 5)
Else
MsgBox(0, $titel, "Es konnten NICHT alle Dateien erfolgreich von " & $quelle & " nach " & $ziel & $subdir & " kopiert werden!")
EndIf

MsgBox(0, $titel, "Danke das du das Programm 'AutoCDaufHDD', geschireben von HackerChirs, benutzt hast!")
Exit

#comments-start
; Es wird getestet ob eine neue CD eingelegt wurde
$dr = DriveGetLabel ($quelle)
While $dr = ""
$ans = MsgBox(1, $titel, "Keine CD in " & $quelle & " eingelegt! Beenden mit 'Abbrechen'", 10)
If $ans = 2 then
MsgBox(0, $titel, "Danke das du das Programm 'AutoCDaufHDD', geschireben von HackerChirs, benutzt hast!")
Exit
EndIf
$dr = DriveGetLabel ($quelle)
WEnd
#comments-end
WEnd
MsgBox(0, $titel, "Danke das du das Programm 'AutoCDaufHDD', geschireben von HackerChirs, benutzt hast!")
Exit

Wollte halt nicht undankbar erschienen

 

Ich bekomme die PressBar ums verrecken nicht hin ... ist vllt auch besser so ... dann läuft das ganze im Hintergrund ab, denn mein Skript läuft jetzt wie ne 1

Nur mal so ... wie hättest du das gemacht? Geht das auch mit AutoIt?