[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


    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"


  • Hi Fluppe

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

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


    There are three types of people in this world.
    Those who can count and those who can&#039;t.