Relative Pfade in VBA

Hey

Ich würde das Startverzeichniss des Programms ermitteln und entsprechend den Pfad zur Datenbankdatei hinzufügen. So gehe ich jedenfalls in Delphi vor

Bin in VBA nicht so firm. aber vielleicht hilft ja untiges Beispiel

Grüße, Heinz

(http://www.giswiki.de)

Beispiel:

Declare Function GetModuleHandleA Lib "Kernel32" _
(ByVal sFileName As String) As Integer
Declare Function GetModuleFileNameA Lib "Kernel32" _
(ByVal iModul As Integer, ByVal sFileName As _
String, ByVal iSize As Integer) As Integer

Function Startverzeichnis(Anwendung$) As String
Dim Buffer As String
Dim IdentModul As Long
Dim IdentLänge As Integer
Buffer = Space(255)
IdentModul = GetModuleHandleA(Anwendung)
IdentLänge = GetModuleFileNameA(IdentModul, _
Buffer, Len(Buffer))
Buffer = Left(Buffer, IdentLänge)
Buffer = Left(Buffer, (Len(Buffer) - _
Len(Anwendung)))
Startverzeichnis = Buffer
End Function

Sub Startverzeichnis_anzeigen()
MsgBox "Die Datei EXCEL.EXE befindet " & _
"sich im Verzeichnis: " & _
Startverzeichnis("EXCEL.EXE"), _
vbInformation, "Startverzeichnis..."
End Sub

aus: http://www.edv-sk.de/vbatipps/vbatipps3.htm

wir haben das problem gelöst !

und haben das projekt abegeschlossen....auf unserer homepage kann wer will die dokumentation des gesamten gis projekts heruntergeladen werden.

Welche Homepage?

Grüße Heinz

http://www.giswiki.de