Public Sub INITest()
Dim Pfad As String
Pfad = ThisWorkbook.Path & "\" & Replace(ThisWorkbook.Name, ".xls", ".ini")
 
If Not FileExists(Pfad) Then
Dim INiName, INISection, INIKey, INIWert
 
INiName = Replace(ThisWorkbook.Name, ".xls", ".ini")
INISection = "Settings"
INIKey = "DBPfad"
INIWert = ThisWorkbook.Path & "\" & Replace(ThisWorkbook.Name, ".xls", ".mdb")
 
WritePrivateProfileString INISection, INIKey, INIWert, INiName
End If
End Sub

Uli

Wissen ist Macht; nichts wissen macht auch nichts!