Wie mache ich eine relative Pfadangabe?
08.12.2003 14:00:44
Micha
Habe im Netzwerk in einem Ordner eine .XLS Datei diese enthält Buttons die den selben oder unterliegende Ordner öffnen soll um z.B. Pics anzuzeigen. Leider heisst dieser Netzwerkordner eher das Laufwerk nich überall gleich. Bräuchte also statt absoluter Pfadangabe eine relative! Wie geht das?
Private Sub CommandButton2_Click()
Dim ZuOeffnendeDatei As Variant
ChDir "G:\XYZ\Bilder"
ZuOeffnendeDatei = Application.GetOpenFilename( _
filefilter:="Grafik+Textdokumente, *.jpg;*.bmp;*.gif;*.tif;*.cgm;*.pdf;*.doc,", MultiSelect:=True)
On Error GoTo errorhandler
Dim endung As String
Dim name As String
name = LCase(ZuOeffnendeDatei(1))
Call Dateianzeige(name)
Exit Sub
errorhandler:
Beep
End Sub
Vielen Dank im Vorraus
Micha