Question

VB 获取文件绝对路径

我要指定一个程序打开某个文件，如果文件用绝对路径的话可以打开，但如果用相对路径就没法打开，像这样：
Shell "app.exe c:\绝对路径\文件.flv", vbNormalFocus 【这样能打开】
Shell "app.exe 文件.flv", vbNormalFocus 【这样打不开】

因为程序要在不同电脑用，必须得使用相对路径，如何转换？

Answer 1

你可以将应用程序及需要的参数文件放在同一个目录下,这样你就是移动到别的电脑上也是一样可以执行的.
如:
...\app.exe
...\文件.flv

先取得参数文件的路径
Dim curFile as string
curFile=App.Path + "\文件.flv"
...
curFile="app.exe "+curFile '转换为一字符串,注意 app.exe 后面的空格!
然后再执行你的 Shell curFile,vbNormalFocus

追问

是放在同一个文件夹里；
你提供的这个代码具体怎么写？我昨天刚摸VB，不太明白

追答

比如,你的窗体上放置了一个按纽,名为 Command1,你双击该按纽,就到了其Click() 事件了.按下面写就可以了
Private Sub Command1_Click()
Dim curFile as string
curFile=App.Path + "\文件.flv"

curFile="app.exe "+curFile '转换为一字符串,注意 app.exe 后面的空格!
Shell curFile,vbNormalFocus '然后再执行你程序
End Sub

就是这里的 App.exe 你是指的什么应用程序?

追问

是一个flv播放器
你的代码OK!
我之前这样Shell "app.exe " & App.Path & "\文件.flv", vbNormalFocus
试过很多次都不行，刚才发现又可以了。。。真是无解~
但是有一个问题，如果路径有空格的话你我的写法都不行，这么解决呢？

追答

路径中不能包含空格的！
因为shell 是一个执行外部命令的“壳”命令，不象windows 的资源管理器！其实讲在windows以前的操作系统（包括早期的windows版本）中，有关路径及文件名中是不允许有空格,单引号等一些系统保留字符的。
App.exe 后面又是需要运行的参数（文件的路径及名称），如果有空格，App.exe 也许当不同的参数去处理的。因此也就体现你的参数不正确了！所以在参数（文件的路径及名称）的使用中，最好按标准的键盘字符使用，且不要包含汉字字符！

路径中不能包含空格的！
因为shell 是一个执行外部命令的“壳”命令，不象windows 的资源管理器！其实讲在windows以前的操作系统（包括早期的windows版本）中，有关路径及文件名中是不允许有空格,单引号等一些系统保留字符的。
App.exe 后面又是需要运行的参数（文件的路径及名称），如果有空格，App.exe 也许当不同的参数去处理的。因此也就体现你的参数不正确了！所以在参数（文件的路径及名称）的使用中，最好按标准的键盘字符使用，且不要包含汉字字符！

Answer 2

可以试试：
Shell "app.exe " & app.Path & "\文件.flv", vbNormalFocus

友情提示：Shell在操作文件路径的时候，如果路径中或者文件名中包含空格，需要利用Chr(34)对路径进行在处理！！
测试不通过的话再留言！！

追问

我之前就是这么写的，但是不行，不过刚才我又试了一次，发现竟然可以了！很奇怪，不知道怎么回事。
另外，这样的话如果遇到路径有空格，就不行~能解决吗？

追答

遇到空格当然可以解决，上面我也提示过你，如果包含空格会比较麻烦，解决办法就是利用Chr(34)将双引号转义出来，通过Chr(34)转义出来的双引号从而获得一个包含有空格的字符串，这个字符串就可以在Shell中编译通过了。方法如下：

Shell "app.exe " & Chr(34) & app.Path & "\文件.flv" & Chr(34), vbNormalFocus

在路径前后各加一个Chr(34)，转义出来的双引号就可以有效的避免，文件夹或者文件名中含有空格而导致的批处理错误！

追问

我之前也是这么写的，但是在虚拟机测试的时候死活不行
不知道是否程序的原因，因为别的程序直接相对路径就能打开，我用的这个flv播放器必须得绝对地址，奇葩~

追答

看了你对别人的追问，你是不是少加了一个后面的chr(34)啊！前后各一个转义双引号一个都不能少的哦！

Answer 3

sPath = "app.exe c:\绝对路径\文件.flv"
If Left(Mid(sPath, 10), 2) = ":\" Then Shell sPath

这样检测路径比较精确，检测.exe空格后2个字符，如果是":\"就会执行Shell语句

追问

你可能没看明白

追答

pathName = "文件.flv"
If Mid(pathName, 2, 1) ":" Then pathName = App.Path & "\" & pathName
Shell "app.exe " & pathName,vbNormalFocus

那这样行吗，判断第二个文件的路径，如果不是相对路径会自动在前面填写当前程序的路径(App.Path)

如果2个程序都在你编写的程序目录下，就用
Shell App.Path & "\app.exe " & App.Path & "\绝对路径\文件.flv" ,vbNormalFocus

追问

晕，直接赋值就行了！
我现在这么写
pathName = App.Path & "\文件.flv"
Shell "app.exe " & pathName, vbNormalFocus

没用过VB，不太会用命令

追答

代码可以简化为
Shell "app.exe " & App.Path & "\文件.flv", vbNormalFocus

追问

我之前就是这么写的，但是不行，不过刚才我又试了一次，发现竟然可以了！很奇怪，不知道怎么回事。
另外，这样的话如果遇到路径有空格，就不行~能解决吗？

追答

Shell Chr(34) & "app.exe " & App.Path & "\文件.flv" & Chr(34), vbNormalFocus

加上Chr(34)就可以打开带空格的路径了

追问

反复测试，发现行不通呀

追答

我测了一下可以打开啊

是不是你app.exe的路径没有设置正确呢？

追问

路径没错，如果我把代码这样写的话就行：
Shell "app.exe " & Chr(34) & App.Path & "\文件.flv", vbNormalFocus
这样写在我win7系统没问题，但是我在虚拟机里测试却是提示错误

我要打开的app.exe是这个：http://www.pc6.com/softview/SoftView_75761.html
你帮忙看看是不是软件的原因

追答

这个软件我一运行就停止工作
既然还打不开，那就尽量不要弄带空格的路径，这个程序可能是靠命令行参数打开FLV视频的，Chr(34)只是给Shell用的，但是影响不了App.exe

追问

是程序的原因，我昨天晚上发现复制到虚拟机里的app.exe比它初始体积要大上20kb，而且在虚拟机里根本就打不开这个软件（所以在虚拟机测试的时候一直错误）。我是从win7桌面将这软件复制到虚拟机的，可能在本地机器上这个软件已经被改变了。
我现在这么写可以正常运行：Shell "app.exe " & Chr(34) & App.Path & "\文件.flv"& Chr(34)
感谢帮助！