Seite 1 von 1
File mit Eigenschaften speichern
Verfasst: 06.03.2018 09:01
von 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!
Re: File mit Eigenschaften speichern
Verfasst: 06.03.2018 09:55
von 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
Re: File mit Eigenschaften speichern
Verfasst: 06.03.2018 10:04
von 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
Re: File mit Eigenschaften speichern
Verfasst: 06.03.2018 11:19
von RSBasic
Velindos hat geschrieben: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?
Re: File mit Eigenschaften speichern
Verfasst: 06.03.2018 12:19
von 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!
Re: File mit Eigenschaften speichern
Verfasst: 06.03.2018 12:44
von 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.
Re: File mit Eigenschaften speichern
Verfasst: 06.03.2018 13:27
von 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!
Re: File mit Eigenschaften speichern
Verfasst: 06.03.2018 23:14
von 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