Überprüfen, ob Datei in "Eigene Dateien" liegt
20.01.2006 14:26:09
Gerhard
ich will per VBA auslesen lassen, ob der Pfad der geöffneten Datei das Homeverzeichnis (also "Eigene Dateien") ist oder nicht.
Es darf aber kein fester Pfad zum Homeverzeichnis eingetragen werden, da es ja auch vorkommen kann, dass es nicht wie üblich auf C:\ liegt, sondern auf einem Netzlaufwerk.
Ich habe zwar einmal versucht das hinzubekommen, aber es funktioniert nicht. Hier mal der Code, mit dem ich es versucht habe:
Sub aktueller_pfad()
If Application.ActiveWorkbook.Path = Environ("homepath") _
Then
MsgBox "Aktueller Pfad ist 'Eigene Dateien'"
Else
MsgBox "Aktueller Pfad ist n i c h t 'Eigene Dateien'"
End If
End Sub
Wenn mir jemand weiterhelfen könnte, wäre das toll.
Gruß
Gerhard