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 : 713
Nombre de snippets : 2181
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 : 9117
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

20/09/2011 - Recuperer le nom du dossier parent d'un fichier

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.



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

{Visual Basic, VB6, VB.NET, VB 2005} SCRIPT CHANGER IP FIXE / IP AUTO
J'ai un réseau d'entreprise, avec une configuration IP particulière sur le wifi, et je me connecte r...

{PHP} EXEMPLE D'APPLICATION DE L'ALGORITHME DE DIJKSTRA EN PHP
Comme je n'ai pas trouvé d'exemple qui implémente Dijkstra en php je me suis créé un petit programme...

{JAVA / J2EE} SERVEUR D'OBJET ET EXEMPLE D UTILISATION : SERVER CHAT ET SON CLIENT
En fait je n ai pas trouver de client/serveur me convenant sur le site ;o) donc j ai fait le mien ;o...

{JAVA / J2EE} DÉTERMINER LE CHEMIN D'UN FICHIER DANS UN RÉPERTOIRE DONNÉ
Il s'agit d'une fonction que retourne le chemin complète "getAbsolutePath" d'un fichier "fileToFind"...

{Python} PINGEUR RÉSEAU
Générateur de ping sur des adresses contenues dans un fichier CFG. Ce script est compatible sur t...

{C / C++ / C++.NET} MODIFIER RAPIDEMENT SON FICHIER HOST
J'ai crée ce petit programme parce que j'accède souvent à mon fichier host pour le modifier. Simp...

{Visual Basic, VB6, VB.NET, VB 2005} COMMUNICATION TCP CLIENT-SERVEUR ASYNCHRONE
Comme j'ai bien galéré sur le sujet, je vous propose une petite application exemple qui met en oeuvr...

{Visual Basic, VB6, VB.NET, VB 2005} INFORMATIONS SUR LES INTERFACES RÉSEAUX
Voici une petite démonstration des informations que l'on peut obtenir sur les interfaces réseaux via...

{Delphi} LABYRINTHE RESOLVER
Voici un programme tiré du projet de "Timmalos" (joli sujet) faites sur Freepascal que moi j'ai pu l...

{C / C++ / C++.NET} BELLMAN:LA VALEUR DU PLUS COURT CHEMIN ET LE PLUS COURT CHEMIN
j'ai fait ce code quad j'étais encore débutant en C et je pense qu'il peut servir. Je suis tombé des...