[Solved] problems creating new folders and files

Hi, I have a little problem with the following code:

Sub aanmaak_folder()
Dim i_folder As String
Dim i_cel As Integer
Dim a As String
Dim b As String

Const OverwriteExisting = True
Set obj = CreateObject("Scripting.FileSystemObject")
Set objfile = CreateObject("Scripting.FileSystemObject")

i_cel = 1

While i_cel < 6

i_folder = Cells(i_cel, 1).Value ‘values of cell a1:a5 are the names of the folders

a = "C:\" & i_folder

Set objFolder = obj.CreateFolder(a)

b = "C:\" & i_folder & "\" & i_folder & ".xls" ‘the file name must be the same as the folder name

objfile.CopyFile "C:\tag\copyfiletest.xls", "b", OverwriteExisting

i_cel = i_cel + 1

Wend

End Sub

This code makes automatically dir. with the names stored in cells a1:a6. (“tag1”,”tag2” to “tag5”)
This is working well. But the workbook copyfiletest.xls must be copied under each new folder and renamed with the same folder name. Here is the problem: there are no files copied only the folders are created.
I don’t know where the problem is?

Eg "C:\test\copyfiletest.xls"
-&gt; "C:\tag1\tag1.xls"

-&gt; "C:\tag2\tag2.xls"

thanx,
Fluppe

thanx Neale,
I wish that everything is as easy as this.
Maybe its due to the early monday morning!

:wink1: