Les Snippets

Nouveaux snippets
Snippets les plus consultés
Proposer un snippet

 Abonnez vous à ce fil d'information Les rss

Rechercher :

Par langages :

Par Catégorie

Compteurs


Nombre de sujets : 659
Nombre de snippets : 2085
Connexion

Obtenir le chemin UNC d'un fichier

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 05/10/2007 14:22:17 et initié par Willi [Liste]
Vue : 6233
Catégorie(s) : Fichier / Disque
Langages dispo pour ce code :
- VB6, VBA
- Delphi 5
Proposer ce code dans un autre langage



Langage : VB6 , VBA
Date ajout : 05/10/2007
Posté par Willi [Liste]

Private Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long

Public Function GetUNCPath(ByVal PathName As String) As String

    Dim sUNCPath As String
    sUNCPath = String(260, 0)
    
    If WNetGetConnection(Left$(PathName, 2), sUNCPath, 260) = 0 Then
    
        sUNCPath = Trim(Left(sUNCPath, InStr(sUNCPath, vbNullChar) - 1))
        sUNCPath = sUNCPath & Mid$(PathName, 3)
        
    End If
    
    GetUNCPath = sUNCPath
    
End Function
Remarque :
Utilisation:

Dim sCheminUNC as String
sCheminUNC = GetUNCPath("Z:\MonFichier.txt")
Langage : Delphi 5
Date ajout : 09/10/2007
Posté par Loulibier [Liste]
function GetUNCPath(const sPathName : string): string;
var
  pcUNCPath : array [0..255] of char;
  iLength   : cardinal;
begin
  iLength := 256;
  if WNetGetConnection(PChar(LeftStr(sPathName, 2)), pcUNCPath, iLength) = 0 then
    Result := pcUNCPath;
end;
Remarque :
Utilisation:

var
sCheminUNC : string;
begin
  sCheminUNC := GetUNCPath('Z:\MonFichier.txt');
end;

Snippets en rapport avec : Chemin, Unc, Absolu, Réseau

21/07/2009 - Chemin de l'application associé à une fenêtre

31/01/2009 - Récupérer le chemin TEMP

14/10/2008 - Savoir si un chemin donnée est un fichier ou un répertoire

21/01/2008 - Récupérer le chemin du programme associé à un fichier d'après son extension

28/08/2007 - Récupérer un chemin de fichier au format Short (même si ce fichier n'existe pas)

26/02/2007 - Retrouver le chemin UNC d'un lecteur réseau.

01/12/2006 - Récupérer le chemin du fichier

16/11/2006 - Récupérer le nom d'un fichier à partir de son chemin

01/09/2006 - Retrouver une sous extension.

23/08/2006 - obtenir le nom d'un exe à partir de sa commande/chemin de lancement



Codes sources en rapport avec : Chemin, Unc, Absolu, Réseau

{JAVA / J2EE} SAVE FILE MANAGER - ENVOYER DES DONNÉES SUR UN SERVEUR EN JAVA
Voilà mon dernier programme, une interface client/serveur pour sauvegarder des données. Les doss...

{PHP} RÉCUPÉRER LE CHEMIN RELATIF D'UN OBJET PAR RAPPORT À LA RACINE DU SITE.
Cette fonction a été réalisée dans le but de récupérer le repertoire où elle se trouve par rapport à...

{JAVA / J2EE} SERVEUR ACCESS
un serveur de base de données pour access, simple et utile pour toute application fonctionnant en ré...

{JAVA / J2EE} TROUVER SON CHEMIN DANS UN LABYRINTHE
programme permettant de rechercher la sortie dans un labyrinthe a l'aide d'un algorithme de backtrac...

{Visual Basic, VB6, VB.NET, VB 2005} RACCOURCIR UN CHEMIN (PATH) OU URL INTERNET
Je pensais que je trouverai cette source sur le site, mais je n'ai rien trouvé! Il faut dire que tro...

{C / C++ / C++.NET} TRANSFERT DE FICHIER TCP [GCC - GTK]
Transfert de fichier via socket en langage C : L'utilisateur du serveur choisie le fichier que le c...

{Flash} LAN CHESS, JEU D'ÉCHEC EN RÉSEAU
Voici un jeux d'échec expérimental avec lequel on peu jouer en réseau.J'utilise un socket pour établ...

{Assembleur} DLL ALGORYTHME DE RECHERCHE DE CHEMIN EN A STAR, A*, FASM
Je cherchais un algorithme qui me trouvait un chemin entre deux points avec des obstacles réutilisab...

{Python} FTP AVEC PYTHON
Pratique pour par exemple transférer un dossier d'images (gallerie) vers un FTP distant. Genre Orang...

{Visual Basic, VB6, VB.NET, VB 2005} FOLDER HELPER - DOSSIERS SPECIAUX, MANIPULATION DE DOSSIERS, ET PLUS... [MODULE DE CLASSE]
voici une classe que j'avais commencé il y a un moment, elle attendait dans son coin... elle deva...