Sub test()
Dim fs As Object
foldername = "c:\LBA\Temp"
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.FolderExists(foldername) Then
fs.CreateFolder (foldername)
End If
End Sub

This will only work if c:\LBA exists. If there's any chance it may be
missing you'll have to search for/create this folder first using the same
method.

Ian

"Joe K." <Joe wrote in message
...

I am searching for easy VBA script to create a folder (C:\LBA\Temp) if
does
not exist.

Please help me with this task.

Thanks,