Discussion :

[antonius_marcus]

Bonjour,

Voilà mon problème :
-Je dois récupérer le chemin d'accès vers le dossier TEMP du système d'exploitation, dans la plupart des cas "C:\Windows\TEMP\", mais il possible que cela change (vers un autre disque ou une arborescence différente).

Comment dois-je faire ?

[ucfoutu]

Bonjour,

Il me semble que tu cherches ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Declare Function GetTempPathA Lib "kernel32" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
 
Private Sub Form_Load()
  MsgBox Trim(GetTempPath)
End Sub
 
Private Function GetTempPath() As String
  Dim z0 As String, I As Integer
  I = GetTempPathA(0, "")
  z0 = Space(I)
  Call GetTempPathA(I, z0)
  z0 = Trim(z0)
  GetTempPath = Trim(z0)
End Function

[antonius_marcus]

Je teste ça tout de suite et je vous tiens au courant.

[antonius_marcus]

Je n'arrive pas à intégrer ces fonctions dans mon code. Il ne reconnais pas la déclaration suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Private Declare Function GetTempPathA Lib "kernel32" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Il passe bien dans cette fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Function GetTempPath() As String
  Dim z0 As String,
  Dim I As Integer
  I = GetTempPathA(0, "")
  z0 = Space(I)
  Call GetTempPathA(I, z0)
  z0 = Trim(z0)
  GetTempPath = Trim(z0)
End Function

[ucfoutu]

Dieu seul sait ce que tu fabriques, alors ....

Ouvre un nouveau projet et mets simplement mon code dans ta Form (sans rien d'autre) et lance donc !

Maintenant : j'espère que tu est bien en VB6, hein ...

[antonius_marcus]

je reteste alors. Sinon effectivement je suis bien sous vb6.

[antonius_marcus]

après avoir utiliser la moitié de mes neurones (soit un) j'ai remarquer que j'avais tester en intégrant le code à un module. Une fois corrigé ça marche.

pardon au famille tout ça...

[antonius_marcus]

Et là c'est le drame... fausse joie donc.
Ce code ne me fourni que les variable d'environnement alors que je cherche à récupérer l'emplacement system du TEMP.

[ProgElecT]

Et là c'est le drame... fausse joie donc.

récupérer l'emplacement system du TEMP

ce n'est pas Environ("systemroot") & "\Temp"

[ucfoutu]

ce n'est pas Environ("systemroot") & "\Temp"

Bonjour Progelect,

Jai également failli répondre celà, mais me suit mordu les lèvres après avoir modifié le nom de ce répertoire (Windows le permet sans sourciller )

[antonius_marcus]

voilà la solution pour laquelle j'ai opté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
'Récupération du path de la variable d'environement 'TMP' de l'utilisateur
    Str_TempDir = Environ$("TMP") 'Variable d'environnement temp

Ce n'est pas vraiment ce que je veux mais c'est ce qui s'en rapproche le plus...

[ucfoutu]

Le mien est "bricolé", précisément, Francis ....... ainsi que d'autres ...

[imparator_42]

Chez moi :
Environ("Temp") et Environ("TMP") donne le même chemin.

A moins qu'on ecrive :
Environ("windir")&"\Temp\" donnerait : C:\Windows\Temp\

Environ("systemroot")&"\Temp\" donnerait : C:\Windows\Temp\