краткое имя файла

snocky
Дата: 09.09.2005 09:19:29
привет.

Кто знает какой приблудиной можно сделать из строки "C:\myDir\myDir\test.dbf" строку "test.dbf"???
msdatabaseru
Дата: 09.09.2005 09:24:18
object.GetFileName(pathspec)
Arguments
object
Required. Always the name of a FileSystemObject.
pathspec
Required. The path (absolute or relative) to a specific file.
Remarks
The GetFileName method returns a zero-length string ("") if pathspec does not end with the named component.

Note The GetFileName method works only on the provided path string. It does not attempt to resolve the path, nor does it check for the existence of the specified path.
The following example illustrates the use of the GetFileName method.



Function GetAName(DriveSpec)
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   GetAName = fso.GetFileName(DriveSpec)
End Function
PA
Дата: 09.09.2005 10:09:27
Function GetFileName(ByVal FullPath As String) As String
    Dim intPos As Integer
    
    intPos = InStrRev(FullPath, "\")
    If intPos > 0 Then
        FullPath = Mid(FullPath, intPos + 1)
    End If
    
    GetFileName = FullPath
End Function
Toking
Дата: 09.09.2005 10:27:56
Еще вариант

Function GetFileName(ByVal FullPath As String) As String
    Dim TempArr As Variant
    
    TempArr = Split(FullPath, "\")
    GetFileName = TempArr(UBound(TempArr)) 
End Function
snocky
Дата: 09.09.2005 11:10:42
пасибо, помогли.
snocky
Дата: 09.09.2005 11:59:00
теперь не могу с той же строки вернуть только папку :(
из "C:\myDir\myDir\test.dbf" надо "C:\myDir\myDir\"
msdatabaseru
Дата: 09.09.2005 12:01:27
а немножко подумать и посмотреть какие еще
методы бывают у FSO никак?
Toking
Дата: 09.09.2005 15:22:07
2msdatabaseru
Вряд ли он будет fso использовать

2snocky
F1 -> MID, LEFT, RIGHT, LEN, SPLIT, INSTR, INSTRREV ...