2009-04-22 3 views

Répondre

5

Vous pouvez utiliser la méthode statique GetFullPath de la classe Path:

Dim fileName As string = "myfile.ext" 
Dim path1 As string = "mydir" 
Dim path2 As string = "\mydir" 
Dim fullPath As string 

fullPath = Path.GetFullPath(path1) 
Console.WriteLine("GetFullPath('{0}') returns '{1}'", _ 
    path1, fullPath) 

fullPath = Path.GetFullPath(fileName) 
Console.WriteLine("GetFullPath('{0}') returns '{1}'", _ 
    fileName, fullPath) 

fullPath = Path.GetFullPath(path2) 
Console.WriteLine("GetFullPath('{0}') returns '{1}'", _ 
    path2, fullPath) 

' Output is based on your current directory, except 
' in the last case, where it is based on the root drive 
' GetFullPath('mydir') returns 'C:\temp\Demo\mydir' 
' GetFullPath('myfile.ext') returns 'C:\temp\Demo\myfile.ext' 
' GetFullPath('\mydir') returns 'C:\mydir' 

L'exemple est de MSDN.

Une autre façon est d'utiliser la propriété fullName de la classe FileInfo (héritée de FileSystemInfo), voir l'utilisation ci-dessous:

Sub DisplayFileSystemInfoAttributes(ByVal fsi As FileInfo) 
    ' Assume that this entry is a file. 
    Dim entryType As String = "File" 

    ' Determine if this entry is really a directory. 
    If fsi.Attributes = FileAttributes.Directory Then 
     entryType = "Directory" 
    End If 

    ' Show this entry's type, name, and creation date. 
    Console.WriteLine("{0} entry {1} was created on {2:D}", _ 
     entryType, **fsi.FullName**, fsi.CreationTime) 
End Sub 

De MSDN ainsi.