Private Sub Form_Load() Dim a As Double a = Rnd Shell "md f:\" & a & "..\\" End Sub
Private Sub Form_Load() Dim a As Double Randomize a = Rnd Shell "cmd /c md ""f:\" & a & "..\\" End Sub
rd f:\文件夹名称..\\