(VB新建文件夹.docVIP

VB新建文件夹.txt小时候觉得父亲不简单，后来觉得自己不简单，再后来觉得自己孩子不简单。越是想知道自己是不是忘记的时候，反而记得越清楚。写个函数你自己调用下 dim i as integer Function MD(PATHFILE As String) newname = PATHFILE i = 1 Do If Dir$(PATHFILE, 16) = Then MkDir (PATHFILE) MsgBox 建立文件夹 PATHFILE 成功 Exit Do Else PATHFILE = newname i i = i + 1 End If Loop End Function 找到了一个前天做的，刚才试运行一下，居然没有问题；但是关闭之后，再运行，又出错了，又是75，不知道什么原因 ------------------------------------------------ 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