Dim objFSO As Object,strFileName$,strFilePath$
Set objFSO=CreateObject("Scripting.FileSystemObject")
strFilePath="C:\Temp\1.txt"
strFileName=objFSO.GetFileName(strFilePath)
MsgBox strFileName
Set objFSO=Nothing
Function FileName(ByVal strFilePath) As String
Dim intPos%
intPos=InStrRev(strFilePath,"\")
FileName=Right(strFilePath,Len(strFilePath)-intPos)
End Function
Dim fn$, fnWoExt$, i&
fn = "2013.02.03 awefc.part" 'имя файла
i = InStrRev(fn, ".") 'положение последней точки
fnWoExt = IIf(i, Left$(fn, i - 1), fn) 'имя файла без расширения
MsgBox fnWoExt
