|
发表于 2010-7-22 21:25:22
|
显示全部楼层
来自: 中国江苏苏州
一个 按钮 ,一个TEXTBOX
8 E) [7 t# V, e$ a0 t7 L! w Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
+ r2 p# s/ x6 A pm.Connect()
, ~6 a5 u5 `1 c! t pm.Execute("CREATE FOLDER 'Toolpath' ;")
4 g* d: W& `7 j7 g pm.Execute("RENAME FOLDER 'Toolpath\文件夹1'" & TextBox1.Text)3 |, U: q$ _3 N, d* |5 p1 g# @: R; ]
End Sub |
评分
-
查看全部评分
|