查人人中国名人网小学数学新课改案例:VB编程知识求解
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/06 06:48:56
If Dir("C:\vbideas", vbDirectory) <> "" Then
Kill "C:\vbideas\*.*"
End If
If Dir("C:\vbideas", vbDirectory) = "" Then
MkDir "C:\vbideas"
End If
FileCopy templatepath & "ktpcb_case1204.prg", "C:\vbideas\ktpcb_case1204.prg"
tempstr = "c:\windows\system32\cmd.exe /K d:\eds\i-deas10\bin\ideas.cmd -a s -t master modeler -m C:\vbideas\bb -q -r C:\vbideas\ktpcb_case1204.prg"
aa = Shell(tempstr, 1)
End Sub
请问这断话是什么意思啊?每个单词最好都给具体解释一下
Private Sub Command1_Click()
私有 过程 命令按钮1_单击()
If Dir("C:\vbideas", vbDirectory) <> "" Then
如果 路径("C:\vbideas", 文件夹) 不等于 空 那么
Kill "C:\vbideas\*.*"
删除 "C:\vbideas\*.*"
End If
结束 如果
If Dir("C:\vbideas", vbDirectory) = "" Then
如果 路径("C:\vbideas", 目录) 等于 空的 那么
MkDir "C:\vbideas"
创建目录 "C:\vbideas"
End If
结束 如果
FileCopy templatepath & "ktpcb_case1204.prg", "C:\vbideas\ktpcb_case1204.prg"
拷贝文件 templatepath & "ktpcb_case1204.prg" 到 "C:\vbideas\ktpcb_case1204.prg"
tempstr = "c:\windows\system32\cmd.exe /K d:\eds\i-deas10\bin\ideas.cmd -a s -t master modeler -m C:\vbideas\bb -q -r C:\vbideas\ktpcb_case1204.prg"
批处理命令 等于 "c:\windows\system32\cmd.exe /K d:\eds\i-deas10\bin\ideas.cmd -a s -t master modeler -m C:\vbideas\bb -q -r C:\vbideas\ktpcb_case1204.prg"
aa = Shell(tempstr, 1)
aa 等于 执行(批处理,1)
End Sub
结束 过程
Private Sub Command1_Click()
私有 过程 命令按钮1_单击()
If Dir("C:\vbideas", vbDirectory) <> "" Then
如果 路径("C:\vbideas", 文件夹) 不等于 空 那么
Kill "C:\vbideas\*.*"
删除 "C:\vbideas\*.*"
End If
结束 如果
If Dir("C:\vbideas", vbDirectory) = "" Then
如果 路径("C:\vbideas", 目录) 等于 空的 那么
MkDir "C:\vbideas"
创建目录 "C:\vbideas"
End If
结束 如果
FileCopy templatepath & "ktpcb_case1204.prg", "C:\vbideas\ktpcb_case1204.prg"
拷贝文件 templatepath & "ktpcb_case1204.prg" 到 "C:\vbideas\ktpcb_case1204.prg"
tempstr = "c:\windows\system32\cmd.exe /K d:\eds\i-deas10\bin\ideas.cmd -a s -t master modeler -m C:\vbideas\bb -q -r C:\vbideas\ktpcb_case1204.prg"
批处理命令 等于 "c:\windows\system32\cmd.exe /K d:\eds\i-deas10\bin\ideas.cmd -a s -t master modeler -m C:\vbideas\bb -q -r C:\vbideas\ktpcb_case1204.prg"
aa = Shell(tempstr, 1)
aa 等于 执行(批处理,1)
End Sub
结束 过程