Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1028to1032
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Temp Pfad

Temp Pfad
28.11.2008 14:33:00
Manfred
Halllo zusammen.
Ich habe folgendes Problem.
Auf einem Rechner können bei uns mehrere User arbeiten.
Für jeden der sich anmeldet (natürlich immer nur einer) steht ein eigener Temp Ordner zur Verfügung.
C:\Documents and Settings\Name\Local Settings\Temp
"Name" steht hier für den Username (z. B. Schmitz).
Unter DOS wird eine Variable mit dem Namen "%Temp%" angelegt, unter der dieser Pfad abgelegt wird.
Wie kann ich nun mit VBA unter Excel diesen Pfad auslesen, um dort Dateien abzuspeichern.
Dies natürlich für jeden User unter seinem eigenen Temp-Ordner.
Gruß
und danke im vorraus
Manfred

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
So
28.11.2008 14:52:00
Backowe
Hi Manfred,
Pfad = "Documents and Settings\" & environ(UserName) & "\Local Settings\Temp\"
Gruß Jürgen
AW: So
28.11.2008 15:27:00
Manfred
Hallo Jürgen,
deine Lösung ist genau die richtige.
Musste nur environ(UserName) in environ("UserName") ändern.
Gruß
und vielen Dank
Manfred
Sorry, daß ich die Anführungsstriche ...
28.11.2008 15:39:00
Backowe
Hallo Manfred,
... vergessen hatte, habe den String aus dem Kopf hingeschrieben, nicht kopiert! ;o)
Gruß Jürgen
AW: So
28.11.2008 15:32:00
Luschi
Hallo Jürgen,
ich sitze hier an einem Firmenrechner, bei dem das Temp-Verzeichnis per Login-Script verändert wird.
Deshalb ist die folgende Methode sicherer:
http://www.vb-fun.de/vb/tipps/tip0274.shtml
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Temp Pfad
28.11.2008 15:52:00
Tino
Hallo,
so müsste es auch gehen,
es wird der Pfad in der MS-Dos kompatible Schreibweise ausgegeben, funktioniert aber auch.

Dim strPfad As String
strPfad = IIf(Right$(Environ$("TEMP"), 1) = "\", Environ$("TEMP"), Environ$("TEMP") & "\")
Debug.Print strPfad


Gruß Tino

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige