how can i create a folder at a location if the folder dosent exist?

[zabiullakhan]

how can i create a folder at a location if the folder dosent exist?

 

[VoG]

With this function

Function DirExists(sSDirectory As String) As Boolean
If Dir(sSDirectory, vbDirectory) <> "" Then DirExists = True
End Function

try like this

If Not DirExists("C:\Test") Then MkDir "C:\Test"

 

[zabiullakhan]

My dir is geting created in Mydocuments, i want to create in a specific location

myDir = ActiveWorkbook.FullName 
If Not DirExists(myDir & "\ALL Cuts Consolidated\") Then
        MkDir myDir & "ALL Cuts Consolidated\"
End If

Please help

 

[VoG]

Try

myDir = ActiveWorkbook.Path
If Not DirExists(myDir & "\ALL Cuts Consolidated") Then
        MkDir myDir & "\ALL Cuts Consolidated"
End If

 

[zabiullakhan]

Am geing an error

"Bad filename or number"

 

[VoG]

It works for me. Use this exact code

Function DirExists(sSDirectory As String) As Boolean
If Dir(sSDirectory, vbDirectory) <> "" Then DirExists = True
End Function

Sub test()
Dim myDir As String
myDir = ActiveWorkbook.Path
If Not DirExists(myDir & "\ALL Cuts Consolidated") Then
        MkDir myDir & "\ALL Cuts Consolidated"
End If
End Sub

 

[zabiullakhan]

Thanks a lot it works..

i have one more issues, can i copy excel sheets where this files names contain "f10_oct10" and paste it in a folder i created
Please help