PureBoard

Verfasst: **14.03.2008 11:15**

Hi,
ich brauche mal wieder einen Rat, weil ich absolut nicht weiß, wie ich das machen soll.
Bei meiner Firma wird auf einem Terminalserver gearbeitet (Citrix) und auf den Clients werden die Anwendungen zum Start zur Verfügung gestellt. Außerdem werden Dateien natürlich auch mit den Programmen verknüpft.
Die ini müsste im Anwenderverzeichnis gespeichert werden und bezüglich des Anwenders auch dort ausgelesen werden. Außerdem soll das Anwenderverzeichnis auch spezielle Ordner für das Programm erhalten.
Wer gibt mir einen Tip, wie das grundsätzlich zu veranstalten ist?
Danke im Voraus.

Verfasst: **14.03.2008 11:24**

Moin,
jeder Windows Benutzer hat doch schon sein eigenes Verzeichnis
„lw:\dokumente und einstellungen\%username%“
Das mit dem %username% ist übrigens ernst gemeint… tippe es mal einfach im explorer ein.
In PB entspricht das:

Code: Alles auswählen

debug GetHomeDirectory()

VG lfy

Verfasst: **14.03.2008 16:57**

Danke,
das müsste es sein. Stimmt ja, auch auf dem Terminalserver hat da ja auch jeder seine ..\Eigene Dateien.
Ich werde mal ein bisschen spielen und den Code posten.

Verfasst: **16.03.2008 18:57**

@lfy
Habe bei dem Scheiß Wetter heute mal ein bisschen gebastelt.
Hier meine Absonderungen.
Bei mir läuft es

Code: Alles auswählen

Enumeration
#HomedirABC
EndEnumeration

Global UserPfad$ = GetHomeDirectory()+"Eigene Dateien" 

Procedure iniPfad_holen()

SetCurrentDirectory(UserPfad$)

If ExamineDirectory(#HomedirABC, UserPfad$, "")  ;Verzeichnis durchsuchen
  While NextDirectoryEntry(#HomedirABC)          ;nächstes 
    Verzeichnis$ = DirectoryEntryName(#HomedirABC)
    If DirectoryEntryType(#HomedirABC) = #PB_DirectoryEntry_Directory  ; ist es ein Verzeichnis?
      If Verzeichnis$ = "ABC"                    ;wenn ja, ist es "ABC"
        UserPfad$ = UserPfad$+Verzeichnis$+"\"   ;dann UserPfad setzen 
  Break                                         ;hurra, gefunden, nicht mehr weitersuchen
      EndIf
    EndIf
  Wend
    If  Not Verzeichnis$ = "ABC"                 
      CreateDirectory("ABC\")              ;wenn nicht, ABC erzeugen
      UserPfad$ = UserPfad$+"ABC\"
      CreateDirectory(UserPfad$+"def\")   ;und dann noch ein paar Unterverzeichnisse
      CreateDirectory(UserPfad$+"ghi\")
      CreateDirectory(UserPfad$+"jkl\")  
    EndIf  
Else
    MessageRequester("Fehler","HomePfad nicht gefunden, 'Eigene Dateien' ")
EndIf
EndProcedure

Danke nochmal für den Tipp.

PureBoard

Program auf dem Terminalserver starten

Program auf dem Terminalserver starten