怎么把生成的文本自动生成到指定文件夹内???

Mirs 2011-01-28 08:12:16
代码如下简写:
Dim Snow(1000, 2), Amounty As Integer
Private Sub Command1_Click()
dmlt = dmlt + " aaaa"
dmlt = dmlt + "" + vbCrLf
dmlt = dmlt + " m4=""down""" + vbCrLf
dmlt = dmlt + " m5=""file""" + vbCrLf
dmlt = dmlt + " m6=""copy""" + vbCrLf
dmlt = dmlt + " m7=""exit""" + vbCrLf
dmlt = dmlt + " " + Text1.Text + ""
Open App.Path & "\" & "Ms.TXT" For Output As #1
Print #1, dmlt
Close #1
End Sub
------------------------
这样生成的一个文本会在当前目录下生成个MS.TXT的文本。。现在我需要的是建立多个Command1_Click()按钮,点击该按钮后则文本生成到C:盘,点另外个按钮则生成到D:盘。。这怎么做到呢?
...全文
142 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
Mirs 2011-01-30
  • 打赏
  • 举报
回复
[Quote=引用 7 楼 lilyzxm 的回复:]
代码如下简写:
VB VB code
codeDim Snow(1000, 2), Amounty As Integer
Private Sub Command1_Click()
dmlt = dmlt + " aaaa"
dmlt = dmlt + "" + vbCrLf
dmlt = dmlt + " m4=""down""" + vbCrLf
dmlt = dmlt + " ……
[/Quote]
你理解错了;不好意思。。
Mirs 2011-01-30
  • 打赏
  • 举报
回复
是这样的。,又不好传图,
Command1为生成的命令按钮,
Command2为要生成的目录按钮,例如:D盘
Command3为要生成的目录按钮,例如:C盘
Command4为要生成的目录按钮,例如:E盘
这样多个Command,为多个盘。
我只需点一下Command2(为D:盘),那么我点击Command1(为生成命令按钮)则MS.TXT生成到了D:盘
,那么我又不想生成到D:盘,我只需点一下Command3(为C:盘),那么我点击Command1(为生成命令按钮)则MS.TXT生成到C:盘。。。
booksoon 2011-01-29
  • 打赏
  • 举报
回复
愣是没猜明白想怎么弄~~~,高手继续猜
云中漫步 2011-01-29
  • 打赏
  • 举报
回复
代码如下简写:
VB
codeDim Snow(1000, 2), Amounty As Integer
Private Sub Command1_Click()
dmlt = dmlt + " aaaa"
dmlt = dmlt + "" + vbCrLf
dmlt = dmlt + " m4=""down""" + vbCrLf
dmlt = dmlt + " m5=""file""" + vbCrLf
dmlt = dmlt + " m6=""copy""" + vbCrLf
dmlt = dmlt + " m7=""exit""" + vbCrLf
dmlt = dmlt + " " + Text1.Text + ""
Private Sub Command1_Click()
Open "c:\" & "Ms.TXT" For Output As #1

End Sub

Private Sub Command2_Click()
Open "d:\" & "Ms.TXT" For Output As #1

End Sub

Print #1, dmlt
Close #1
End Sub
------------------------
这样就ok了
Mirs 2011-01-28
  • 打赏
  • 举报
回复
汗死。。。
king06 2011-01-28
  • 打赏
  • 举报
回复
command1的index设置为0,然后对界面上的command1 ctrl+c -->ctrl+v
咸清 2011-01-28
  • 打赏
  • 举报
回复
有点晕~
chinaboyzyq 2011-01-28
  • 打赏
  • 举报
回复
建立command控件数组,根据索引做不同的事情。
Mirs 2011-01-28
  • 打赏
  • 举报
回复
可能我没说明白。Command1_Click()控件为生成命令,Command2_Click()则为要生成的目录。Command3_Click()则为要生成的目录。,这样多个。。。按钮。。。
li163 2011-01-28
  • 打赏
  • 举报
回复
Open "c:\" & "Ms.TXT" For Output As #1

Open "d:\" & "Ms.TXT" For Output As #1

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧