Функция PathStripPath

Declare Function PathStripPath Lib "shlwapi" Alias "PathStripPathA" _
  (ByVal pPath As String) As Long

PathStripPath удаляет часть полного пути файла

Возвращаемое значение

Функция не возвращает значений

Параметры

pszPath

Строка, содержащая путь к файлу. После вызова функции будет содержать измененую строку

Пример

Dim fullnamefile As String
fullnamefile = "c:\windows\system32\user32.dll"
PathStripPath (fullnamefile)
Print TrimNull(fullnamefile)

Private Function TrimNull(item As String)

   Dim pos As Integer
   
   pos = InStr(item, Chr$(0))
   
   If pos Then
      TrimNull = Left$(item, pos - 1)
   Else
      TrimNull = item
   End If
   
End Function

Категория