Good Afternoon,
What is the code to make multiple sub Directories?
I currently have the following, which works no probs
Private Sub Command70_Click()
[Drawing Number].SetFocus
If Len(Dir("\\Gimli\dofiles\CO Drawings\ABC\Drawings Issued\LW\" & [Drawing Number].Text, vbDirectory)) = 0 Then
MkDir "\\Gimli\dofiles\CO Drawings\ABC\Drawings Issued\LW\" & [Drawing Number].Text
End If
End Sub
Basically this creates a Directory based on the Drawing Number within the form.
But now I need to add the following folders ino the new directory, Awaiting Checking, Awaiting Approval, Obsolete.
Cheers
Stuart
What is the code to make multiple sub Directories?
I currently have the following, which works no probs
Private Sub Command70_Click()
[Drawing Number].SetFocus
If Len(Dir("\\Gimli\dofiles\CO Drawings\ABC\Drawings Issued\LW\" & [Drawing Number].Text, vbDirectory)) = 0 Then
MkDir "\\Gimli\dofiles\CO Drawings\ABC\Drawings Issued\LW\" & [Drawing Number].Text
End If
End Sub
Basically this creates a Directory based on the Drawing Number within the form.
But now I need to add the following folders ino the new directory, Awaiting Checking, Awaiting Approval, Obsolete.
Cheers
Stuart
Last edited: