Question

vb 完整路径获取文件夹路径

path="c:\soft\中国人\setup.exe"
如：dir(path)可以获取文件名,Left(path, InStr(path, "\"))可以获取磁盘路径，那获取文件夹路径该怎么写？

Answer 1

Path = "c:\soft\中国人\setup.exe"
For i = 1 To Len(Path)
If Mid(Path, i, 1) = "\" Then Print Left(Path, i)
Next i
或者：
Path = "c:\soft\中国人\setup.exe"
For i = 1 To Len(Path)
If Mid(Path, i, 1) = "\" Then Text1.Text = Left(Path, i)
Next i
将路径存放于text1内