| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1292 人关注过本帖
标题:求助Command()传递参数?
只看楼主 加入收藏
mayong123
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2008-10-30
收藏
 问题点数:0 回复次数:5 
求助Command()传递参数?
"C:\Documents and Settings\cs\桌面\工程1.exe" 'Prince of Persia.lnk' 'E:\Prince of Persia\Prince of Persia.exe'
带空格的参数如何传递???

Private Sub Form_Load()
On Error GoTo errhandle:
Dim strLine() As String, i As Integer
    strLine = Split(Command(), " ")
    For i = 0 To UBound(strLine)
        Text1.Text = strLine(0)
        Text2.Text = strLine(1)
        Next
  
Set WshShell = CreateObject("Wscript.shell")
Path = "C:\Documents and Settings\All Users\「开始」菜单\"
Set oMyShortcut = WshShell.CreateShortcut(Path & Text1.Text)
'此处为快捷名称,你可以修改路径
oMyShortcut.TargetPath = Text2.Text '此处为源文件
oMyShortcut.Save

Set WshShell = CreateObject("Wscript.shell")
Path = "C:\Documents and Settings\All Users\桌面\"
Set oMyShortcut = WshShell.CreateShortcut(Path & Text1.Text)
'此处为快捷名称,你可以修改路径
oMyShortcut.TargetPath = Text2.Text '此处为源文件
oMyShortcut.Save
Shell Text2.Text
errhandle:
MsgBox "错误"
End Sub
搜索更多相关主题的帖子: Command 参数 
2008-12-12 17:03
三断笛
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:31
帖 子:1621
专家分:1617
注 册:2007-5-24
收藏
得分:0 
每个参数之间用/ 加0个或多个空格来分格,
2008-12-12 17:41
mayong123
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2008-10-30
收藏
得分:0 
谢谢。。。
可是没看明白?
能否解释一下!!
2008-12-12 18:05
三断笛
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:31
帖 子:1621
专家分:1617
注 册:2007-5-24
收藏
得分:0 
还不明白?就是不要用空格作为参数的分格符,而换/,|之类
给你举个例子
del C:\Documents and Settings\All Users\test.dat /p
2008-12-12 18:16
mayong123
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2008-10-30
收藏
得分:0 
明白了。。。谢谢。。。
把strLine = Split(Command(), " ")
改成strLine = Split(Command(), "/")
2008-12-12 18:29
mayong123
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2008-10-30
收藏
得分:0 
原来以为" "是Command()中的特定格式,不知是条件来的。。。
非常感谢。。。
2008-12-12 18:32
快速回复:求助Command()传递参数?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.030634 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved