Dim myIniFile As String
Dim strPfad As String
'Überprüfung, ob die *.ini vorhanden ist, wenn
'Ja = Prüfen ob Werte eingetragen sind
'Nein = erstelle eine über Dialog(UserForm)
 
If ReadIni(Environ("APPDATA") & "\" & Left(ThisWorkbook.Name, Len( _
  ThisWorkbook.Name) - 4) & ".ini") = True Then
'nix
  Else
  Fole = Environ("APPDATA") & "\" & Left(ThisWorkbook.Name, Len( _
    ThisWorkbook.Name) - 4)
  WriteIni strPfad
'frmHDD.Show
End If
 
 
 
End Sub
 
 
Sub WriteIni(File As String)
   'Diese Prozedur schreibt die ini-Datei
   Dim f As Integer
   f = FreeFile
 
   Open File For Output As f
        Print #f,
   Close
End Sub
 
Function FileExists(sPath As String) As Boolean
'Prüft, ob eine Datei existiert
'Liefert True, wenn Datei existiert, sonst false
    Dim oFSO As Object
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    FileExists = oFSO.FileExists(sPath)
End Function
 
 
Function ReadIni(File As String) As Boolean
    Dim f As Integer
    'Setzt den Wert auf true
    ReadIni = True
 
    'Prüft ob die ini tatsächlich vorhanden ist
    If FileExists(File) = True Then
        f = FreeFile
        Open File For Input As f
            Line Input #f, dummy
        Close
        If dummy = "Falsch" Then ReadIni = False
 
    End If
End Function