Aktuelle Zeit: 21.04.2019 01:04

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 1 Beitrag ] 
Autor Nachricht
 Betreff des Beitrags: GetUserDirectoryEx(...)
BeitragVerfasst: 13.09.2018 11:57 
Offline
Benutzeravatar

Registriert: 24.11.2004 13:12
Wohnort: Germany
Kleiner Progammauszug :wink:
Code:
;-TOP

; Comment: GetUserDirectoryEx
; Author : mk-soft
; Version: v1.01
; Created: 013.09.2018
; Updated: 10.09.2018
; Link   :

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

Procedure.s GetUserDirectoryEx(DirectoryType, Path.s = "")
  Protected result.s, dir.s, part.s, cnt
  dir = GetUserDirectory(DirectoryType)
  If Right(dir, 1) <> #PS$
    dir + #PS$
  EndIf
  result = dir + path
  If Not FileSize(result) = -2
    result = dir
    Repeat
      cnt + 1
      part = StringField(path, cnt, #PS$)
      If Not Bool(part)
        Break
      EndIf
      result + part + #PS$
      If Not FileSize(result) = -2
        If Not CreateDirectory(result)
          Debug "Error: GetUserDirectoryEx(" + result + ")"
          ProcedureReturn ""
        EndIf
      EndIf
    ForEver
  EndIf
  If Right(result, 1) <> #PS$
    result + #PS$
  EndIf
  ProcedureReturn result
EndProcedure

CompilerIf #PB_Compiler_IsMainFile
  Define dir.s = GetUserDirectoryEx(#PB_Directory_ProgramData, "purebasic")
  ;Define dir.s = GetUserDirectoryEx(#PB_Directory_ProgramData, "myprogram\v1.01\data")
 
  If OpenWindow(0, 0, 0, 400, 200, "ExplorerListGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ExplorerListGadget(0, 10, 10, 380, 180, dir, #PB_Explorer_MultiSelect)
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf
CompilerEndIf

_________________
Alles ist möglich, fragt sich nur wie...
Projekte EventDesigner v1.x / OOP-BaseClass-Modul / OPC-Helper DLL
PB v3.30 / v5.4x - OS Mac Mini OSX 10.xx / Window 10 Pro. (X64) /Window 7 Pro. (X64) / Window XP Pro. (X86) / Ubuntu 14.04
Downloads auf Webspace


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 1 Beitrag ] 

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 4 Gäste


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.

Suche nach:
Gehe zu:  

 


Powered by phpBB © 2008 phpBB Group | Deutsche Übersetzung durch phpBB.de
subSilver+ theme by Canver Software, sponsor Sanal Modifiye