VB-Homepage Tipp 102

Datenträgernamen - Labelname - mit Dir($) ermitteln

Das man mit dem Dir($) Befehl abfragen kann, ob Verzeichnisse oder Dateien vorhanden sind, ist Ihnen sicher bekannt. Mir auch.
Das man damit aber den Namen des Datenträgers abfragen kann, war mir neu.

Wenn es Ihnen genau so geht, dann hab ich hier was Neues für Sie.

1.Definieren Sie ein neues Projekt und fügen Sie einen Commandbutton hinzu.
Außerdem fügen Sie noch ein Label-Objekt für die Ausgabe ein

2.In der Aktion "Command1_Click" fügen Sie nun folgendes ein.
variable$ = Dir$("c:\", 8) 'als Beispiel LW C:\
varlänge& = Len(variable$) 'Länge des Labelnamens ermitteln
For i = 1 To varlänge& 'Schleife mit soviel Durchläufen, wie die Länge des Labelnamens
einzelzeichen$ = Mid(variable$, i, 1) ' Auslesen jedes einzelnen Zeichens des Labelnamens, da 8.3 Konvention mit . angegeben wird
If Not einzelzeichen$ = "." Then Labelname$ = Labelname$ + einzelzeichen$ 'Zusammensetzen des Labelnamens ohne .
Next i
Label1.Caption = Labelname$ 'Ausgabe

Die Prozedur mit dem Ermitteln jedes einzelnen Zeichens des Labelnamens ist deshalb angebracht, da der gemeldete Name der 8/3 DOS-Konvention entspricht. Die Angabe mit einem Punkt im Namen aber unschön aus sieht.

Tipp-Download

Quelle : Jürgen Anke [BasicWorld]

Zurück zur Übersichtsseite