13-06-14, 05:41 AM
.....
.....
كود :
'
Dim file As String = "C:\Users\Admin\Desktop\NewFolder\database1.mdb"
Dim result As String
'-----------------------------------------------------------------------------------------------------
result = IO.Path.GetFullPath(file) ' C:\Users\Admin\Desktop\NewFolder\database1.mdb
'-----------------------------------------------------------------------------------------------------
result = IO.Path.GetPathRoot(file) ' C:\
'-----------------------------------------------------------------------------------------------------
result = IO.Path.GetDirectoryName(file) ' C:\Users\Admin\Desktop\NewFolder
'-----------------------------------------------------------------------------------------------------
result = IO.Path.GetFileName(file) ' database1.mdb
'-----------------------------------------------------------------------------------------------------
result = IO.Path.GetFileNameWithoutExtension(file) ' database1
'-----------------------------------------------------------------------------------------------------
result = IO.Path.GetExtension(file) ' .mdb
'-----------------------------------------------------------------------------------------------------.....



