vb新建文件夹（VB new folder）.docVIP

vb新建文件夹（VB new folder） VB new folder.Txt, when I think my father is not easy, and later feel that he is not simple, and later felt that his child is not simple. The more you want to know whether you have forgotten something, the better you remember. Write a function that you call yourself Dim I as integer Function MD (PATHFILE, As, String) Newname = PATHFILE I = 1 Do If Dir$(PATHFILE, 16) = Then MkDir (PATHFILE) MsgBox build folder PATHFILE success Exit Do Else PATHFILE = newname I I = I + 1 End If Loop End Function Found a day before yesterday to do, just try to run, but there is no problem; but after the closure, and then run, and error, and 75, I do not know why ------------------------------------------------ Dim, a, As, String, B, As, Integer, c$, d$ Private, Sub, Command1_Click () Re: On Error GoTo W If B 0 Then C = Str$(b) A = D + Chr$(H28) + C + Chr$(H29) MkDir a W: If Err.Number = 75 Then B = B + 1 GoTo re End If ElseIf B = 0 Then MkDir D End If End Sub Private, Sub, Form_Load () A = d:\12\bv D = a B = 0 End Sub 2010-1-8 15:19 reply Lang Lang viby school 2 Fans The 10 floor First operation effect 2010-1-8 15:30 reply Two hundred and forty-four million three hundred and twenty-six thousand eight hundred and sixty-seven 119 fans The 11 floor On error doesnt seem to be able to ignore errors indefinitely The second error was not ignored 2010-1-8 18:02 reply Lang Lang viby school 2 Fans The 12 floor Answer: 11 floor Dont understand, watchtower on us.. 2010-1-8 18:30 reply Lang Lang viby school 2 Fans The 13 floor But like this, like 10L, after I delete all the folders in the 12, then run the program I designed, there will be no problem, but once you turn off the program and run again, it goes wrong again 2010-1-8 18:34 reply Sizz123 26 fans The 14 floor Its done, but I dont know if its the function you want Dim FSO As New FileSystemObjectcreates file system objects Dim n As Integer file number Private, Sub, Command1_Click () For n = 0, To, 11, from 0-11 loo