CD-Laufwerk ermitteln

[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

[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

[chrizl]

thx kiffi

das hat super geklappt, mitn bisserl ausprobieren.

auf jeden fall klappt das proggi nun so, wie es soll


grüße,


chrizl

[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:

Code: Alles auswählen

Garbage to the end of the line.

[Kaeru Gaman]

das isn tippfehler, klammer vergessen, irgendsowas...

zeig mal die zeile vor, wo der fehler auftritt...

[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

[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...