Seite 1 von 1
CD-Laufwerk ermitteln
Verfasst: 01.09.2006 16:01
von chrizl
So, ich schreibe es einfach mal hier rein, da ich ja immernoch nur ein Anfänger bin und mehr bastel als sonst was.
Also ich habe vor, ein kleines Programm zu basteln, mit welchem ich von einer CD Daten auf die Festplatte kopieren kann.
Jetzt habe ich es schon soweit, dass wenn dieser Ordner schon vorhanden ist und keine Daten in diesem Ordner vorhanden sind, dass ich dann einen Button freischalte, welcher dann durch Klick die Daten von dem CD-Rom-Laufwerk auf die Festplatte kopiert.
Wäre super, wenn Ihr vlt wisst, wie ich dann das CD-Rom-Laufwerk ermittle. Am besten so, dass ich einfach nur den Dateinamen vorgebe(Variable) und das Programm dann alle optischen Laufwerke durchsucht.
Grüße,
chrizl
Re: CD-Laufwerk ermitteln
Verfasst: 01.09.2006 16:28
von Kiffi
Hallo ChriZL,
> Wäre super, wenn Ihr vlt wisst, wie ich dann das CD-Rom-Laufwerk
> ermittle.
DataMiner hat unter folgendem Threa einen für Dich passenden Code gepostet:
http://www.purebasic.fr/german/viewtopic.php?t=1895
Grüße ... Kiffi
Verfasst: 01.09.2006 18:16
von chrizl
thx kiffi
das hat super geklappt, mitn bisserl ausprobieren.
auf jeden fall klappt das proggi nun so, wie es soll
grüße,
chrizl
Verfasst: 04.09.2006 10:56
von chrizl
hey ich bins nochmal...
wollte den source gerade in pb4 einsetzen.. aber irgendwie klappt das nicht so, wie ich wollte...
naja, bin halt nen newby und somit noch zu unerfahren beim umsetzen des sources in die neue version.
mit einigem rumprobieren klappt ja so einiges.. aber diesmal anscheinend nicht...
fehlermeldung lautet wie folgt:
Verfasst: 04.09.2006 10:57
von Kaeru Gaman
das isn tippfehler, klammer vergessen, irgendsowas...
zeig mal die zeile vor, wo der fehler auftritt...
Verfasst: 04.09.2006 11:03
von DarkDragon
Code: Alles auswählen
Define.l Serial, type, i
Define.s Lfwrk, FileSystem, VolName
For i=65 To 90
Lfwrk=Chr(i)+":\"
type =GetDriveType_(Lfwrk)
FileSystem = Space(256)
VolName= Space(256)
GetVolumeInformation_(@Lfwrk, @VolName, 255, @Serial, 0, 0, @FileSystem, 255)
Select type
Case 0
Debug Lfwrk+" The drive type cannot be determined."
Case 2
Debug Lfwrk+" = DRIVE_REMOVABLE, "+VolName+", "+FileSystem+", "+ Hex(Serial)
Case 3
Debug Lfwrk+" = DRIVE_FIXED, "+VolName+", "+FileSystem+", "+ Hex(Serial)
Case 4
Debug Lfwrk+" = DRIVE_REMOTE, "+VolName+", "+FileSystem+", "+ Hex(Serial)
Case 5
Debug Lfwrk+" = DRIVE_CDROM, "+VolName+", "+FileSystem+", "+ Hex(Serial)
Case 6
Debug Lfwrk+" = DRIVE_RAMDISK, "+VolName+", "+FileSystem+", "+ Hex(Serial)
EndSelect
Next
DefType -> Define
Verfasst: 04.09.2006 11:25
von chrizl
ach stimmt...
sry, hatte nicht an define gedacht.. war zu sehr geblendet wegem dem defType
danke nochmal... wenn noch was sein sollte, schreib ich auf jeden fall.. denn ich denke, dass ich noch einige hilfe dabei brauchen werde...