Snippets

Home / Snippets / Make Directory

Make Directory

Snippet Menu

snippet |

revisions |

comments | Related Snippets

related |

Add to Favorites | Email

download | Print

print | Blog It

blog it

Thu. Mar. 2nd, 2006 10:32 AM

1 of 1

dannyboy

Directory | Folder | MAKE | MD | VBSCRIPT

1 comments

Make a new directory

Function MD(strDirName)

     Dim lFSObj, lFolder

     ' First See if it already exists

     set lFSObj = Wscript.CreateObject("Scripting.FileSystemObject")

     set lFolder = lFSObj.GetFolder(strDirName)

     If Err.number = 0 then

        ' Yes, it does exist so we don't have to do anything

        MD = True

     Else

        Err.Clear

        lFSObj.CreateFolder(strDirName)

        If Err.Number <> 0 Then

          MD = False

        Else

          MD = True

        End If

     End If

     Set lFolder = Nothing

     Set lFSObj = Nothing

End Function