首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

怎会这样?

2012-01-12 
怎会这样?高手请进!我想将形如“C:\Windows\System32\Setuplog.txt”的文件路径转化为单独的文件名(包括去掉

怎会这样?高手请进!
我想将形如“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, "\ ")

热点排行