AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 05 23:00:27
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

RÉCUPÉRATION DU RÉPERTOIRE DE WINDOWS


Information sur la source

Catégorie :Système Classé sous : répertoire, windows Niveau : Débutant Date de création : 20/02/2001 Vu : 5 118
Auteur : webcyril Site perso
Ecrire un message privé
Note :
9,2 / 10 - par 5 personnes
9,20 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

Description

Pour ne pas mettre en dur le répertoire c:\winnt ou c:\windows
dans vos programmes, utilisez plutôt cette routine qui récupére
le répertoire d'installation de Windows !!


 

Source

  • ' API pour la récupération répertoire Windows,
  • Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
  • '-------------------------------------------
  • ' Récupération du répertoire Windows
  • '
  • ' Création : webcyril - Février 2001
  • '-------------------------------------------
  • Function PRGetRepertoireWindows() As String
  • Dim WindowsDir As String
  • WindowsDir = String$(255, " ")
  • ' récupération du répertoire d'installation de Windows par API
  • GetWindowsDirectory WindowsDir, Len(WindowsDir)
  • WindowsDir = RTrim$(WindowsDir)
  • WindowsDir = Left$(WindowsDir, Len(WindowsDir) - 1)
  • PRGetRepertoireWindows = WindowsDir
  • End Function 
' API pour la récupération répertoire Windows,
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

'-------------------------------------------
' Récupération du répertoire Windows
'
' Création : webcyril - Février 2001
'-------------------------------------------
Function PRGetRepertoireWindows() As String
    Dim WindowsDir As String
    
    WindowsDir = String$(255, " ")
    ' récupération du répertoire d'installation de Windows par API
    GetWindowsDirectory WindowsDir, Len(WindowsDir)
    WindowsDir = RTrim$(WindowsDir)
    WindowsDir = Left$(WindowsDir, Len(WindowsDir) - 1)
    PRGetRepertoireWindows = WindowsDir
End Function

Commentaires et avis

signaler à un administrateur
Commentaire de thigo le 19/03/2002 17:20:04

Merci pour ce code que j'ai trouver facile à utiliser

A+

signaler à un administrateur
Commentaire de yomm le 21/08/2003 12:33:21

juste histoire d'optimiser ton code :

' API pour la récupération répertoire Windows,
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

'-------------------------------------------
' Récupération du répertoire Windows
'
' Création : webcyril - Février 2001 feat. yomm
'-------------------------------------------
Function PRGetRepertoireWindows() As String
    Dim WindowsDir As String * 255
    Dim Longueur as Integer

    ' récupération du répertoire d'installation de Windows par API
    Longueur = GetWindowsDirectory(WindowsDir, Len(WindowsDir))
    PRGetRepertoireWindows = Left(WindowsDir, Longueur)

End Function

signaler à un administrateur
Commentaire de F2E le 03/02/2004 15:11:42

Merci de votre aide. Par la connaissance de cette API, je suis moins idiot !

signaler à un administrateur
Commentaire de z980x le 21/06/2004 18:16:38

Juste pour les mecs qui savent pas comment récupérer le chemin:

Msgbox PRGetRepertoireWindows

(Je sais, "tout le monde connait", mais ca peut toujours aider)

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Comment copie un fichier ds le répertoire windows [ par Heineken1664 ] Comment faire en sorte a ce ke le fichier s'autocopie ds le repertoire de windows et par la suite creer un raccourci automatic dans la base de registr chdir avec windows 2000 [ par jackg ] Bonjour,Je mémorise dans une varaible public le chemin d'accès du programme lors de son éxécution, et j'utilise la commande : chdir variable pour défi Problème avec la DLL vb6fr.dll [ par TeDeum ] Salut,J'ai installé le kit des runtime de VB6 service pack 5 sur une machine sous windows 98, et quand j'essaye de lancer mon application j'ai ce mess Creer un répertoire sous windows a partir d'access ( VBA) [ par frosties02 ] Bonjour,Je souhaiterai creer un répertoire sous windows depuis ma base Access (VBA).Je m'explique : Je souhaite faire une base de gestion clientele, j Lancer un fichier du répertoire system de windows [ par themaste ] Bonjour à tous!Voila, j'aimerais avec un click sur un bouton, lancer le fichierodbcad32.exe, qui se trouve ds le repertoire system32.Mon pbl, est comm Informations pour les fichiers du répertoire windows [ par sacotte ] BonjourLes répertoires « windows » contiennent des informations telles que la dernière date de modification d?un fichier que l?on peut obtenir par l?i Changer le répertoire du Bureau Windows et rafraichir celui-ci [ par RajaFill ] Bonjour,J'aimerais savoir si quelqu'un sait comment changer le répertoire par défault du Bureau Windows (c:\documents....\Bureau) et rafraic Ou est le répertoire d'installation du Bloc Note de windows [ par nono78220 ] Bonsoir,Je souhaite ouvrir un document text avec le bloc-note de windows. Dans quel dossier d'installation est-il situé pour pouvoir lancer le bloc-no Lister et utiliser des fichiers Font (True & Opentype) ne se trouvant pas dans le répertoire "C:\Windows\Font\" ... [ par Emoutheos ] Bonjour,Voilà, je travaille en VB pour mon propre plaisir et me retrouve bloqué dans l'une de mes applications...Explications : Une amie graphiste m'a Persistance de Compact Framework sur Windows CE [ par Chevalerie ] Bonjour,


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version


HTC G1
Entre 449€ et 449€


Visiter le guide achat

Photothèque Nouveau !

Photo sitges beachPhoto friends
Photo regard intense d'une magnifique femmePhoto adolescente plage

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,702 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.