level 7
用批处理命令 md 文件夹名称
2021年11月30日 01点11分
level 7
![[汗]](/static/emoticons/u6c57.png)
不是一个道理么？ Shell "cmd /k md " & "d:\123" & "& exit"
level 6
VB6拖一个timer和一个command:
代码如下：
Dim n%
Private Sub Command1_Click()
MkDir ("d:\TEST\")
Timer1.Enabled = True
Timer1.Interval = 60000
End Sub
Private Sub Timer1_Timer()
n = n + 1
MkDir ("d:\TEST\test" & n & "\")
Command1.Caption = n
End Sub
Private Sub Form_Unload(Cancel As Integer)
Timer1.Enabled = False
End Sub
2021年12月04日 01点12分
3
代码如下：
Dim n%
Private Sub Command1_Click()
MkDir ("d:\TEST\")
Timer1.Enabled = True
Timer1.Interval = 60000
End Sub
Private Sub Timer1_Timer()
n = n + 1
MkDir ("d:\TEST\test" & n & "\")
Command1.Caption = n
End Sub
Private Sub Form_Unload(Cancel As Integer)
Timer1.Enabled = False
End Sub
谢谢你
2023年02月12日 03点02分