IniDatei = App.Path & "\" & "Inidatei.ini"
mDateiname = INIGetValue(IniDatei, "Dateineinstellungen", "Rechner")
 
If Not FileExists(mDateiname) Then
  LCF = ""
  With CommonDialog
    .FileName = LCF
    .DialogTitle = "Load RECHNER "
    .Filter = "RECHNER EXE File(*.EXE)|*.EXE"
    .InitDir = App.Path
    .Flags = &H4 Or &H2 Or &H800
    .DefaultExt = "*.exe"
    .CancelError = False
    .ShowOpen
  End With
  If CommonDialog.FileName > "" Then
     LCF = CommonDialog.FileName
  Else
    Mgsbox ("Cancel gedrückt/Nix ausgewählt")
    Exit Sub
  End If
  mDateiname = LCF
  Call INISetValue(IniDatei, "Dateineinstellungen", "Rechner", mDateiname)
End If
 
FileCopy "Profil.dat", mDateiname

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)