How to create folders in Windows Explorer using names in col A?

[MikeL]

Is it possible to use a loop thru a list of names in col A of a worksheet and create new folders in Windows Explorer with these names?

If in Col A was a list of states:
Delaware
California
Alaska

can a macro be run to create folders in C:\Test with these state names?

Thanks,
Mike

 

[jindon]

try

Sub test()
Dim fso As Object, mySir As String, temp As String
Set fso = CreateObject("Scripting.FileSystemObject")
myDir = "c:\test\"
On Error Resume Next
For Each r In Range("a1", Range("a" & Rows.Count).End(xlUp))
    Err.Clear
    temp = fso.CreateFolder(myDir & r.Value)
    If Err = 0 Then
        MsgBox temp & vbLf & " was created.", vbInformation
    Else
        MsgBox Err.Description
    End If
Next
Set fso = Nothing
End Sub

 

[stanleydgromjr]

MikeL,

See Norie's post:
http://www.ozgrid.com/forum/showthread.php?t=53979


Have a great day,
Stan