Sicherheitsrichtlinien von Window ...
Zielpath "C:\Users" ungültig. LastError "Zugriff verweigert"
Code: Alles auswählen
;-TOP
Procedure.s FormatMessage(ErrorCode)
Protected *Buffer, len, result.s
len = FormatMessage_(#FORMAT_MESSAGE_ALLOCATE_BUFFER|#FORMAT_MESSAGE_FROM_SYSTEM,0,ErrorCode,0,@*Buffer,0,0)
If len
result = PeekS(*Buffer)
LocalFree_(*Buffer)
ProcedureReturn result
Else
ProcedureReturn "Errorcode: " + Hex(ErrorCode)
EndIf
EndProcedure
; ----
Url$ = "https://www.purebasic.com/german"
File$ = "C:\Users\xxx.html"
InitNetwork()
res = ReceiveHTTPFile(Url$, File$)
Debug FormatMessage(GetLastError_())
Debug "res="+Str(res)+", "+Str(FileSize(File$))+" Bytes empfangen"
So läuft es ...
Code: Alles auswählen
Url$ = "https://www.purebasic.com/german"
File$ = GetUserDirectory(#PB_Directory_Documents) + "pb.html"
InitNetwork()
res = ReceiveHTTPFile(Url$, File$)
Debug "res="+Str(res)+", "+Str(FileSize(File$))+" Bytes empfangen"
Es darf nicht mehr wie früher jeden beliebigen Ordern von windows etwas gespeichert werden.
Code: Alles auswählen
Company.s = "MyCompany"
Application.s = "MyApp"
ConfigFile.s = "MyConfig.ini"
AllUsersDataFile.s = GetUserDirectory(#PB_Directory_AllUserData) + Company + #PS$ + Application + #PS$ + ConfigFile
Debug AllUsersDataFile
UserDataFile.s = GetUserDirectory(#PB_Directory_ProgramData) + Company + #PS$ + Application + #PS$ + ConfigFile
Debug UserDataFile
Natürlich erst die Unterordner selber anlegen ...