If 0 = $CMDLine Then Exit ;无参数,退
Local $sPath = $CMDLine;默认按目录处理
If 0 = FileExists($CMDLine & '\') Then $sPath = PathToGetFolder($CMDLine) ;不是目录,处理路径为目录
FileChangeDir($sPath) ;改变工作目录
MsgBox(0, 0, @WorkingDir) ;不解释
Exit ;更加不解释
Func PathToGetFolder($sPath)
Local $sFolder = StringRegExpReplace($sPath, '^[^\\]*|[^\\]*$', '')
Return $sFolder
EndFunc ;==>PathToGetFolder
说实话,我没搞懂楼上的意思,运用后,没有显示消息框。 回复 17# 虎虎虎
我很怀疑你会不会用你所谓的在网上搜到的批处理 本帖最后由 虎虎虎 于 2012-9-1 22:23 编辑
回复 18# Qokelate
用?当然会用啊!只不过我不是很了解其中知识(包括你写的代码),所以才会疑惑!{:face (197):} 回复 19# 虎虎虎
和你的批处理一样用法,仅此而已,编译与否均正常工作,只是编译后支持拖放
页:
1
[2]