1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Emuler %windir%

Emuler %windir%

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 236 fois - Téléchargée 36 fois


Commenter

Contenu du snippet

Cette simple fonction émule la fonction interne de Windows %WinDir% qui renvoie le chemin du répertoire de Windows. Elle utilise l'API "GetWindowsDirectory" il faut donc la déclarer dans un module

Source / Exemple : 


Private Declare Function GeneralWinDirApi Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Function WinDir() As String
' Renvoie le répertoire de Windows (Par exemple C:\Windows ou C:\WinNT)
    Const FIX_LENGTH% = 4096
    Dim Length As Integer
    Dim Buffer As String * FIX_LENGTH
    Length = GeneralWinDirApi(Buffer, FIX_LENGTH - 1)
    WinDir = Left$(Buffer, Length)
End Function au

Conclusion :


Voilà et désolé pour le manque de commentaires je ne suis pas très fort pour les explications...

A voir également

Ajouter un commentaire Commentaire
Signaler
Messages postés
5
Date d'inscription
samedi 28 octobre 2000
Statut
Membre
Dernière intervention
24 avril 2005
tres bonne source

Ideal lorsque on ne peut pas utiliser le VBS
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (CFK)