Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour HD Avec l'API GetSystemDirectory : Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Sub HD() Dim EspaceBuffer As String, Renvoi As Long EspaceBuffer = Space(255) Renvoi = GetSystemDirectory(EspaceBuffer, 255) EspaceBuffer = Left$(EspaceBuffer, Renvoi) MsgBox "Le répertoire système de Windows = " & EspaceBuffer End Sub
Cordialement Pascal
"HD" a écrit dans le message de news:
Bonjour,
Comment peut on avoir la variable d'environnement SYSTEM donnant l'emplacement du répertoire système de Windows?
Pour le répertoire temp on peut faire Environ("TEMP")... mais pour SYSTEM ça
ne marche pas... :(
Merci d'avance pour votre aide. -- @+ HD
Bonjour HD
Avec l'API GetSystemDirectory :
Private Declare Function GetSystemDirectory Lib "kernel32" Alias
"GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As
Long
Sub HD()
Dim EspaceBuffer As String, Renvoi As Long
EspaceBuffer = Space(255)
Renvoi = GetSystemDirectory(EspaceBuffer, 255)
EspaceBuffer = Left$(EspaceBuffer, Renvoi)
MsgBox "Le répertoire système de Windows = " & EspaceBuffer
End Sub
Cordialement
Pascal
"HD" <hd@anti.spam.fr> a écrit dans le message de
news:OhvVZHh8DHA.2796@TK2MSFTNGP09.phx.gbl...
Bonjour,
Comment peut on avoir la variable d'environnement SYSTEM donnant
l'emplacement du répertoire système de Windows?
Pour le répertoire temp on peut faire Environ("TEMP")... mais pour SYSTEM
ça
Bonjour HD Avec l'API GetSystemDirectory : Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Sub HD() Dim EspaceBuffer As String, Renvoi As Long EspaceBuffer = Space(255) Renvoi = GetSystemDirectory(EspaceBuffer, 255) EspaceBuffer = Left$(EspaceBuffer, Renvoi) MsgBox "Le répertoire système de Windows = " & EspaceBuffer End Sub
Cordialement Pascal
"HD" a écrit dans le message de news:
Bonjour,
Comment peut on avoir la variable d'environnement SYSTEM donnant l'emplacement du répertoire système de Windows?
Pour le répertoire temp on peut faire Environ("TEMP")... mais pour SYSTEM ça
ne marche pas... :(
Merci d'avance pour votre aide. -- @+ HD
papou
Heu ! ENVIRON("Windir") me renvoie bien le répertoire système.
Cordialement Pascal
"papou >" <<DésoléPasDeMail> a écrit dans le message de news:u$UBk$
Bonjour HD Avec l'API GetSystemDirectory : Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Sub HD() Dim EspaceBuffer As String, Renvoi As Long EspaceBuffer = Space(255) Renvoi = GetSystemDirectory(EspaceBuffer, 255) EspaceBuffer = Left$(EspaceBuffer, Renvoi) MsgBox "Le répertoire système de Windows = " & EspaceBuffer End Sub
Cordialement Pascal
"HD" a écrit dans le message de news:
Bonjour,
Comment peut on avoir la variable d'environnement SYSTEM donnant l'emplacement du répertoire système de Windows?
Pour le répertoire temp on peut faire Environ("TEMP")... mais pour SYSTEM
ça
ne marche pas... :(
Merci d'avance pour votre aide. -- @+ HD
Heu !
ENVIRON("Windir")
me renvoie bien le répertoire système.
Cordialement
Pascal
"papou >" <<DésoléPasDeMail> a écrit dans le message de
news:u$UBk$h8DHA.2460@TK2MSFTNGP09.phx.gbl...
Bonjour HD
Avec l'API GetSystemDirectory :
Private Declare Function GetSystemDirectory Lib "kernel32" Alias
"GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As
Long
Sub HD()
Dim EspaceBuffer As String, Renvoi As Long
EspaceBuffer = Space(255)
Renvoi = GetSystemDirectory(EspaceBuffer, 255)
EspaceBuffer = Left$(EspaceBuffer, Renvoi)
MsgBox "Le répertoire système de Windows = " & EspaceBuffer
End Sub
Cordialement
Pascal
"HD" <hd@anti.spam.fr> a écrit dans le message de
news:OhvVZHh8DHA.2796@TK2MSFTNGP09.phx.gbl...
Bonjour,
Comment peut on avoir la variable d'environnement SYSTEM donnant
l'emplacement du répertoire système de Windows?
Pour le répertoire temp on peut faire Environ("TEMP")... mais pour
SYSTEM
Heu ! ENVIRON("Windir") me renvoie bien le répertoire système.
Cordialement Pascal
"papou >" <<DésoléPasDeMail> a écrit dans le message de news:u$UBk$
Bonjour HD Avec l'API GetSystemDirectory : Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Sub HD() Dim EspaceBuffer As String, Renvoi As Long EspaceBuffer = Space(255) Renvoi = GetSystemDirectory(EspaceBuffer, 255) EspaceBuffer = Left$(EspaceBuffer, Renvoi) MsgBox "Le répertoire système de Windows = " & EspaceBuffer End Sub
Cordialement Pascal
"HD" a écrit dans le message de news:
Bonjour,
Comment peut on avoir la variable d'environnement SYSTEM donnant l'emplacement du répertoire système de Windows?
Pour le répertoire temp on peut faire Environ("TEMP")... mais pour SYSTEM
ça
ne marche pas... :(
Merci d'avance pour votre aide. -- @+ HD
HD
ENVIRON("Windir") me renvoie bien le répertoire système.
Non... il renvoi le répertoire Windows. -- @+ HD
ENVIRON("Windir")
me renvoie bien le répertoire système.
