Private Sub Command1_Click()
Private Declare Function CreateDirectory Lib \"kernel32\" Alias \"CreateDirectoryA\" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Dim attribut As SECURITY_ATTRIBUTES
attribut.nLength = Len(attribut)
attribut.lpSecurityDescriptor = &O0
attribut.bInheritHandle = False
Dim counter As Long
Dim tnew As String
Dim _disibledevent= \"\\\" Then
Call CreateDirectory(tx, attribut)
End If
End If
Next i
end sub
最新评论