|
|
发表于 2010-7-22 21:25:22
|
显示全部楼层
来自: 中国江苏苏州
一个 按钮 ,一个TEXTBOX1 p, n5 ]/ T7 j" D. P
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
) l5 y: T2 ?& ^) h1 Z# p( x pm.Connect()5 k2 R; F$ b2 L& t
pm.Execute("CREATE FOLDER 'Toolpath' ;")
3 n7 w$ i7 J- j pm.Execute("RENAME FOLDER 'Toolpath\文件夹1'" & TextBox1.Text)( n9 J- y( J1 X, m$ ]$ s
End Sub |
评分
-
查看全部评分
|