Shell "E:\Documents and Settings\Administrator\桌面\soft\delshare.bat"
Option Explicit Dim pcl(4) As String Dim i As Integer Dim n As IntegerPrivate Sub Command1_Click() n = InputBox("输入批处理命令条数" ) For i = 1 To n pcl(i) = InputBox("输入批处理命令" & i) Next Open "c:\CopyMl.bat" For Output As #1 For i = 1 To 2 Print #1, pcl(i) Next Close Shell ("c:\CopyMl.bat") End Sub
删除文件的代码格式为 Kill [完整文件名] Kill支持多字符(*)和单字符(?)的统配符来指定多重文件。例如: kill"c:\xy\*.bak" 将删除c盘xy目录下的备份文件。 Kill语句具有一定的“危险性”,因为在执行该语句时没有任何提示信息 复制文件 FileCopy [完整文件名],[复制目标文件名] FileCopy语句的功能是复制一个文件,实现剪切文件时再删除原文件 即可 解压文件比较麻烦,涉及到压缩文件的格式,算法等问题,建议使用VB 的文件函数来写入文件如"open filename for binary as #1" 来实现 VB中调用文件 例: Open "c:\123.txt" For Input As #1 '读取"c:\123.txt" Dim Lines As String Dim NextLine As String Do Until EOF(1) Line Input #1, NextLine Lines = Lines & NextLine & Chr(13) & Chr(10) '把"c:\123.txt"的内容保存到Lines变量中 Loop
还想通过VB的Form界面输入变量
然后可以让比处理文件接受变量
再执行批处理,
这是我现在想实现的一个过程,
不知道能否完成,
望高人指点!
多谢!!!
或
shell "Cmd.exe /c a.bat"
Dim pcl(4) As String
Dim i As Integer
Dim n As IntegerPrivate Sub Command1_Click()
n = InputBox("输入批处理命令条数" )
For i = 1 To n
pcl(i) = InputBox("输入批处理命令" & i)
Next
Open "c:\CopyMl.bat" For Output As #1
For i = 1 To 2
Print #1, pcl(i)
Next
Close
Shell ("c:\CopyMl.bat")
End Sub