create folders with a file in it

[snjpverma]

I have a list of names and the code number in column A1 to B10. sometimes, less than 10 names are also there.

e.g.:

John	254689
James	245682
Alisha	458213

How can have a folder created with these names and codes.
Folders should look like this
John - 254689
James - 245682 ...

There is a file saved in a particular folder, this file should be copied and pasted in each of the new folder that gets created.
Please assist.

 

[snjpverma]

In the above code before for...next loop

    Dim strFile As String
    strFile = "D:\Test VBA\000.xlsx"    ' modify this one
  
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
  
    Dim oFile As Object
    Set oFile = fso.GetFile(strFile)

Inside the for...next loop right before "Next":

    If not fso.FileExists(fso.BuildPath(c00, oFile.Name)) Then oFile.Copy fso.BuildPath(c00, oFile.Name)

Right before "End Sub"

    Set oFile = Nothing
    Set fso = Nothing

this works fine. thank you

 

[snjpverma]

    If not fso.FileExists(fso.BuildPath(c00, oFile.Name)) Then oFile.Copy fso.BuildPath(c00, [B]oFile.Name)[/B]

Right before "End Sub"

    Set oFile = Nothing
    Set fso = Nothing

In the above code before for...next loop

    Dim strFile As String
    strFile = "D:\Test VBA\000.xlsx"    ' modify this one
  
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
  
    Dim oFile As Object
    Set oFile = fso.GetFile(strFile)

Inside the for...next loop right before "Next":

    If not fso.FileExists(fso.BuildPath(c00, oFile.Name)) Then oFile.Copy fso.BuildPath(c00, oFile.Name)

Right before "End Sub"

    Set oFile = Nothing
    Set fso = Nothing

the file is getting created, but I want the file name also to be the same as folder names.
Please assist.

 

[Gokhan Aycan]

It should be something like this:

If not fso.FileExists(fso.BuildPath(c00, fso.GetBaseName(c00 & "." & fso.GetExtensionName(oFile))) Then
    oFile.Copy fso.BuildPath(c00, fso.GetBaseName(c00 & "." & fso.GetExtensionName(oFile))
End If