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.