Laufwerk Buchstaben herausfinden.
06.08.2008 11:16:07
Tom
ich hab ein kleines Problem, ich will ein Programm anzeigen von Bilder in Excel schreiben. Jetzt sollt das in meiner Firma zur Verfügung gestellt werden.
Prolem: In der Datei, greif ich dynamisch auf die Bilder je nach Sachnummer zu.
Jetzt das Problem der Pfad: C:\Peter\Lustig\bild\1.jpg
Jetzt kann jeder Mitarbeiter das Laufwerk unterschiedlich als Netzlaufwerk verbinden.
Gibt es jetzt eine Möglichkeit das Laufwerk automatisch herauszufinden, oder im schlechtesten Fall, den Ordner über ein Menü auswählen?
Ein Ansatz hatte ich shcon gefunden der funktioniert bei meinem Excel aber nicht.
'''
''' Gibt den nächsten freien Laufwerksbuchstaben zurück
'''
Public Function NextAvailDrive() As String
' alle logischen Laufwerke
Dim sDrives As String = Join(Directory.GetLogicalDrives(), "")
Dim sNextDrive As String = ""
' nach 1. nicht verwendetes Laufwerk suchen
' beginnend ab C:
For i As Integer = 68 To 90
If Not sDrives.Contains(Chr(i) & ":") Then
sNextDrive = Chr(i) & ":" : Exit For
End If
Next
Return sNextDrive
End Function
mfg Tom