Option Explicit
 
' Deklaration der Win-API Funktionen zum Lesen und Schreiben von INI-Files
Public Declare Function WritePrivateProfileString Lib _
  "kernel32" Alias "WritePrivateProfileStringA" _
  (ByVal lpApplicationName As String, _
  ByVal lpKeyName As Any, ByVal lpString As Any, _
  ByVal lpFileName As String) As Long
 
Public Declare Function GetPrivateProfileString Lib _
  "kernel32" Alias "GetPrivateProfileStringA" _
  (ByVal lpApplicationName As String, _
  ByVal lpKeyName As Any, ByVal lpDefault As String, _
  ByVal lpReturnedString As String, ByVal nSize As Long, _
  ByVal lpFileName As String) As Long
 
Public Function FileExists(ByVal sFile As String) As Boolean
'Der Parameter sFile enthält den zu prüfenden Dateinamen
  Dim Size As Long
  On Local Error Resume Next
  Size = FileLen(sFile)
  FileExists = (Err = 0)
  On Local Error GoTo 0
End Function
 
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!