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

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

推荐答案 2012-02-26

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内

温馨提示：答案为网友推荐，仅供参考

当前网址：http://77.wendadaohang.com/zd/8pI88NpWI.html

相似回答

vb 完整路径获取文件夹路径答：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 将路径...

vb获取启动文件夹路径答：CSIDL, pidl) If s = NOERROR Then ' 根据r的返回值判断是否有错误发生，如果没有错误就获取文件夹路径 path = Space$(512) s = SHGetPathFromIDList(ByVal pidl, ByVal path) GetSpecialPath = Left$(path, InStr(path, Chr$(0)) - 1) Exit Function End If GetSpe...

vb 获得选中文件夹或文件路径答：Private Sub Dir1_Change()File1.Path = Dir1.Path ' 当目录改变时，设置文件路径.End Sub Private Sub File1_Click()sPath = formatPath(Dir1.List(Dir1.ListIndex)) '获取选择的路径 Text1.Text = sPath & File1.FileName bReady = True End Sub Private Sub Command1_Click() '...

VB程序让文件夹拖放到程序上获取该文件夹的路径!答：'先设置对象为可接收拖放 Me.Text1.OLEDropMode = 1 '如果想设置为窗体本身为接收对象的话，可以设置为 'me.OLEDropMode=1 '然后编写 Sub Form_OLEDragDrop(...)函数，格式和代码和文本框函数中的一样。End Sub '当拖动对象到文本框上时 Private Sub Text1_OLEDragDrop(Data As DataObject, Effec...

VB获取文件完整绝对路径答：'读写INI文件 Function GetINI(AppName As String, KeyName As String, filename As String) As String Dim RetStr As String RetStr = String(10000, Chr(0))GetINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), filename))'读：Rtn = ...

VB 查找文件夹并得到路径答：function getPath(strFilename as string) as string 'strFilename 是你用commanddialog对话框，和showopen方法来打开一个文件路径 dim i,m as integer dim s,l as string m=0 for i=1 to len(strFilename)s=mid(strFilename,i,1)if s=...

大家正在搜

vb获取当前文件夹路径文件夹里的文件路径 vb读取文件夹下的文件名 vb获取文件路径 vb指定文件夹路径 vb打开指定路径文件夹 vb复制文件到指定文件夹 vb删除文件夹及文件 vba复制文件到指定文件夹