怎会这样？高手请进！
我想将形如“C:\Windows\System32\Setuplog.txt”的文件路径转化为单独的文件名（包括去掉扩展名）。下面是代码：
Dim pos As Integer = 1
Dim i As Integer

For i = 1 To 65535
pos = InStr(pos, ipath, "\ ")
If pos <> 0 Then
ipath = Mid(ipath, pos + 1)
Else : Exit For
End If
i = i + 1
Next

pos = InStr(ipath, ".txt ")
FileName = Mid(iPath, 1, pos - 1)

但非常奇怪，只要路径中文件夹名称中有空格（例如这个“C:\Documents and Settings\vanxining\桌面\PC.txt”)就会分离成形如“vanxining\桌面\PC”。
百思不得其解！求救高手！谢谢！



[解决办法]
pos = InStr(1, ipath, "\ ")