Datei Speichern

[Pure_Beginner]

Hallo zusammen,

habe ein Problem beim speichern von Dateien.
wenn ich versuche die Datei im Rootverzeichniß von c:\ zu speichern wird die Datei nicht angelegt, was nicht weiters verwundert, was mich allerdings verwundert ist die Tatsache das die Meldung

Code: Alles auswählen

MessageRequester("Fehler","nicht ausgeführt")

nicht ausgegeben wird.

kann mir jemand Helfen ?

Code: Alles auswählen

Procedure Menu_Click_Speichern()
  Protected.i a, TotalItems, Pattern = 0, Cent
  Protected.s Test, str_dateipfad, str_Pattern = "*.csv|*.csv", Summe 
  Protected str_File.s = SaveFileRequester("Bitte Datei zum Speichern auswählen", "", str_Pattern, Pattern)
  Protected StatusBarFieldText$ = Space(255)  ;variable anlegen für die aufnahme des statusbar wertes
  
  str_File.s = RemoveString(str_File,".csv")
 
  If str_File
    str_Dateipfad = str_File
    TotalItems    = CountGadgetItems(#Gadget_frm_Haupt_ListIcon)
        
    If CreateFile(1, str_Dateipfad  + ".csv") <> 0
      
      For a = 0 To TotalItems - 1
        WriteStringN(1, GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 1) + ";" + GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 2) + ";" +
                        GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 3) + ";" + GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 4) + ";" +
                        GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 5) + ";" + GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 6) + ";" +
                        GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 7) + ";" + GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 8) + ";" +
                        GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 9) + ";" + GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 10) + ";" +
                        GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 11) + ";" + GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 12) + ";" +
                        GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 13) + ";" + GetGadgetItemText(#Gadget_frm_Haupt_ListIcon, a, 14))
      Next 
      CloseFile(1)
    Else
      MessageRequester("Fehler","nicht ausgeführt")
    EndIf  
  EndIf
EndProcedure

Grüße
Christian

[RSBasic]

Debugge jede Zeile, um nachvollziehen zu können, wo genau er aussteigt.
Dafür gibt es den Debugger.

[Pure_Beginner]

@RSBasic

er steigt nicht aus, er tut so als sei alles glatt gelaufen

[RSBasic]

Ich hab dein Code leicht angepasst, nur um selber testen zu können, und bei mir funktioniert es mit Administratorrechten.
Hast du mal versucht, die Datei auf einer anderen Festplatte/Partition zu erstellen? Ich kann das hier nicht nachvollziehen.
Vielleicht kann jemand, der die neuste Version besitzt, ebenfalls testen. Ich habe hier derzeit noch die 5.20.

[- chris -]

Code: Alles auswählen

If CreateFile(1, "C:\Test.csv")
    
  Debug "OK"
  
  WriteStringN(1, "1;2;3;4")
  
  CloseFile(1)
  
EndIf

End

Die Datei wird erstellt und befindet sich im Virtual Store.

C:\Users\benutzer\AppData\Local\VirtualStore

Mit Administrator Rechten befindet sich die Datei dann auf Laufwerk C:\

[Pure_Beginner]

Danke für eure Tipps,

aber was ist wenn ich keine Admin rechte habe und die Datei nicht erstellt wird, wieso meldet er das nicht ?

Grüße

[Pure_Beginner]

@- chris -,

meldet OK

zeigt in c:\ die Datei nicht an

[- chris -]

@Pure_Beginner

Die Datei wird erstellt und befindet sich im Virtual Store.

C:\Users\benutzer\AppData\Local\VirtualStore

[ts-soft]

Wenn man in den Compiler-Optionen zumindest den UserModus anfordert, gibts auch Fehlermeldung!
Ansonsten ist es eben kein Vista/7 kompatibles Programm und wird virtualisiert (verarscht )

Also, entweder ein XP programm erstellen, und auch nur dort ausführen, oder eben ein Programm
für Vista und höher (mit entsprechender Manifest).

[Pure_Beginner]

@RSBasic,

unter einem andern Verzeichniß klappt das,
mir geht es um die Meldung wenn es fehlschlägt.

Grüße