begin process at 2012 02 12 19:06:30
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Système

 > RÉCUPÉRATION DU RÉPERTOIRE DE WINDOWS

RÉCUPÉRATION DU RÉPERTOIRE DE WINDOWS


 Information sur la source

Note :
9,2 / 10 - par 5 personnes
9,20 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Système Classé sous :répertoire, windows Niveau :Débutant Date de création :20/02/2001 Vu :5 642
Auteur : webcyril

Ecrire un message privé
Site perso
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



 Sources du même auteur

Source avec Zip CHANGER LE PAPIER PEINT WINDOWS
VB ET WORD
HOSTNAME D'UN POSTE
UTILISATEUR CONNECTÉ
Source avec Zip INFORMATION (VERSION, TYPE, COPYRIGHT, DESCRIPTION D'UN FICH...
Toutes les sources de webcyril

 Sources de la même categorie

Source avec Zip Source avec une capture AUTORISER/REFUSER L'EXECUTION DE PROCESSUS par pierreh51
Source avec Zip Source .NET (Dotnet) CLONE/FORK DES FLUX DE LA CONSOLE : PERMETTRE LA REDIRECTION... par ShareVB
Source avec Zip Source .NET (Dotnet) DÉFRAGMENTER UN FICHIER par ShareVB
Source avec Zip Source .NET (Dotnet) ECRAN DE VEILLE : DÉTECTER LE LANCEMENT/DÉCLENCHER/EMPÊCHER par ShareVB
Source avec Zip Source avec une capture DESACTIVER / ACTIVER LES MISES EN VEILLES PC par Arsena
Toutes les sources de la catégorie Système

 Sources en rapport avec celle ci

Source .NET (Dotnet) MODIFICATION DATE DE WINDOWS EN VB.NET ET VBA par us_30
Source avec Zip NETTOYAGE DES REPERTOIRES TEMPORAIRES DE WINDOWS 95,98,ME,NT... par cestoutmoi
TROUVER LE RÉPERTOIRE TEMPORAIRE WINDOWS par jolauje
RÉPERTOIRES DE WINDOWS par Hawk
Source avec Zip TROUVER LE REPERTOIRE TEMPORAIRE PAR DEFAUT DE WINDOWS par Nix

Commentaires et avis

Commentaire de thigo le 19/03/2002 17:20:04

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

A+

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

Commentaire de F2E le 03/02/2004 15:11:42

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

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

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Happy Bright Landscape WIth ButterfliesPhoto Renewable Energy is Within Reach
Photo Marais Salants d'Aigues-Mortes (30220), Gard 

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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,749 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)