Private Sub Command1_Click()
'点击开始后记录下一个时间，所有的文件都是以这个时间为准
jltime = Now()
'点击开始后就新建一个文件夹，每超过1min，重复这个命令
pth = App.Path '新建文件夹所在的路径
fd = "连续监测模式" & Left(jltime, 4) & "年" & Mid(jltime, 6, 1) & "月" & Mid(jltime, 8, 1) & "日" & Mid(jltime, 10, 2) & "时" & Mid(jltime, 13, 2) & "分" & Right(jltime, 2) & "秒" '新建文件夹名称
ttt = Dir(pth, vbDirectory)
If ttt = "" Then MsgBox "路径不存在！": Exit Sub
ttt = Dir(pth & "\" & fd, vbDirectory)
If ttt <> "" Then MsgBox "文件夹已存在！": Exit Sub
MkDir pth & "\" & fd
ttt = Dir(pth & "\" & fd, vbDirectory)
mmmmmm = 0
End Sub