ChaosCoder
Ich schreibe in VB gerade ein Proggi, dass Powerpointpräsentationen, die auf einer CD gespeichert sind starten soll. (Dieses Programm ist natürlich nich für mich sondern für die Schule) Jetz suche ich deshalb einen Befehl, der auf das Lokale CD-Laufwerk zugreift, weil ich will nicht, dass bei jedem Programmstart gefragt wird, welchen Buchstaben das CD-Laufwerk hat.
Ich kenne zwar %systemroot%, %systemdrive%, %temp%... aber kennt einer vielleicht so einen Befehl für das CD- Laufwerk?
Da das Programm auf den Schulrechnern funktionieren soll, muss der Befehl in Windows integriert sein, weil man auf den Schul PCs keine Software installiern kann.
thx im Vorraus
ChaosCoder
ThiefMaster
Wie soll das gehen? Ein PC kann mehrere Laufwerke haben...
Und wieso willst du es in VB machen wenn man wie du sagst keine Software installieren kann?
Wenn du ein VB-Programm laufenlassen kannst, kannst du auch fast alles damit programmieren...
daHooligan
wenn du es so willst, dass man ein programm startet und das startet wiederum die Präsentation von nem Schulrechner, kannst du doh ein auswahlfeld machen, dass alle laufwerke enthält und aus dem man dann auswählt von welcem laufwerk man starten will.
aöternativ kannst du auch ein autoplay auf die CD machen, das ist einfacher
ChaosCoder
So werd ich's machen müssen (mit Auswahlfeld). Es hätte ja sein können, dass es irgendwie anders möglich ist.
Vielen Dank für eure Mühen
CC
daHooligan
du könntest natürlich auch den inhalt jeder CDprüfen ob da ne powerpoint drauf ist und dann nur dieses laufwerk zu verfügung stellen nachdem du getestet hast ob es ein wechseöldatenträger (USB-Stick) oder ein Wechselmedienlaufwerk (Streamer, Floppy, Tandon Personal Data Safe oder CD-Laufwerk etc.) ist und dann aus diesen Laufwerken filtern und bei klick auf das Laufwerk eine auswahl der Powerpoint-Präsentationen anbieten, sodass bei klick auf die entsprechende Präsentation diese gestartet wird, vllt kann man noch ein vorschaubild anbieten dass eben die erste seite angezeigt wird.
ChaosCoder
Ich mache jetzt erst mal das einfache Programm und beschäftige mich später, wenn ich das ganze für die Projekte in Informatik mache mit dieser Methode
thx und grüße
CC
s k 0 r
dein programm sollte alle cd-laufwerke auflisten und man sollte sie dann auswählen können
hier ein bsp:
| code: |
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
|
Private Function ListDrives()
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
For Each Cdlaufwerk in fso.drives
If Cdlaufwerk.DriveType = 5 Then ' gibt 1-5 wobei 5 cd-laufwerke sind
'If Cdlaufwerk.IsReady Then 'Kann drauf zugegriffen werden nichgt bei cd verwenden desshalb auskommentiert
'Auflisten
Text1.Text = Text1.Text + Cdlaufwerk
'End If
End If
Next
End Function
|
|
ChaosCoder
thx, genau sowas hab ich gesucht
