File mit Eigenschaften speichern

[Velindos]

Hallo Leute,
kann man ein File gleich mit Eigenschaft "Versteckt" & "Schreibgeschützt" speichern.

Code: Alles auswählen

Help_Text$ = "Hier mein Beispiel mit TEXT!"

If CreateFile(0, "C:\Velindos.hlp")  
  WriteStringN(0,Help_Text$,#PB_Ascii) 
  CloseFile(0)   
Else
  MessageRequester("Information","Konnte keine Help Datei erstellen!")
EndIf

Gruss ... Velindos!

[silbersurfer]

Hallo Velindos,
mit der File-Bibliothek nicht, aber mit FileSystem schon.
Hoffe du meintest es so oder ?

Code: Alles auswählen

Help_Text$ = "Hier mein Beispiel mit TEXT!"

If CreateFile(0, "C:\Velindos.hlp") 
  WriteStringN(0,Help_Text$,#PB_Ascii)
  CloseFile(0)   
  SetFileAttributes("C:\Velindos.hlp", #PB_FileSystem_Hidden | #PB_FileSystem_ReadOnly)
Else
  MessageRequester("Information","Konnte keine Help Datei erstellen!")
EndIf

[Velindos]

Hallo,
Danke! Das Funzt!

Nun hab ich ein neues Problem mit der Datei!

Wenn ich meinen

OpenFileRequester("Bitte Datei zum Laden auswählen", StandardFile$, Pattern$, Pattern)

öffne, zeigt er Sie nicht, was ja durch die Eigenschaft richtig ist. Kann mann den OpenFileRequester Attributes() setzen(wie im Explorer) das man Sie sieht!

Gruss ... Velindos

[RSBasic]

Kann mann den OpenFileRequester Attributes() setzen(wie im Explorer) das man Sie sieht!

Was meinst du genau? Kannst du einen Screenshot posten?
Möchtest du versteckte Dateien im OpenFileRequester() anzeigen lassen oder die Spalte "Attribute" anzeigen?

[Velindos]

Hallo,

Möchtest du versteckte Dateien im OpenFileRequester() anzeigen lassen

genau das! Weil ich nicht im #Explorer die versteckten Dateien Anzeige, wäre das ein Highlight wenn ich über den Requester diese sehen/wählen würde!

Geht DASS?

Gruss ... Velindos!

[RSBasic]

Das geht leider nicht. OpenFileRequester() bezieht sich auf die Einstellungen von Windows Explorer.
Wenn du im Windows Explorer die Einstellung für das Anzeigen der versteckten Dateien aktivierst, dann werden die Dateien auch im Requester angezeigt.
Die einzige Alternative wäre, wenn du deinen eigenen Requester() bastelst. Das Problem hatte ich bei meinem Live Backup System auch.

[Velindos]

Hallo,
Danke, dass wollte ich Wissen!

Nun, dann löse ich es über voreingestellte Pfade(C:\Verstecke.txt), denn das geht!
Sprich, er findet sie dann!

Gruss ... Velindos!

[mk-soft]

Wenn ich ein Programm finde das Dateien oder Ordner im Root-Verzeichnis anlegt, vernichte ich diese Sofort

Ist keine schöne Art. Besser da hin packen, wo es hin gehört...

Code: Alles auswählen

CompilerIf #PB_Compiler_OS = #PB_OS_Windows
  #SEP$ = "\"
CompilerElse
  #SEP$ = "/"
CompilerEndIf

; Bugfix MacOS
CompilerIf #PB_Compiler_OS = #PB_OS_MacOS
  Procedure.s MyGetUserDirectory(Type)
    Protected r1.s
    r1 = GetUserDirectory(Type)
    If Right(r1, 1) <> #SEP$
      r1 + #SEP$
    EndIf
    ProcedureReturn r1
  EndProcedure
  Macro GetUserDirectory(Type)
    MyGetUserDirectory(Type)
  EndMacro
CompilerEndIf

; Für Benutzer
PathProgrammDaten.s = GetUserDirectory(#PB_Directory_ProgramData) + "MyProgram" +#SEP$
Datei.s = PathProgrammDaten + "Versteckte.txt"
Debug Datei

; Für Alle
PathProgrammDaten.s = GetUserDirectory(#PB_Directory_AllUserData) + "MyProgram" +#SEP$
Datei.s = PathProgrammDaten + "Versteckte.txt"
Debug Datei