bad file name or number

ola estou fazendo um programe de backup so que esta dando erro na hora de criar o diretorio, nao entendi o porque.o programa consiste em pegar as linhas do arquivo txt, coloca-las num array, este array insere as linhas no list e depois vem a operacao para copiar.gratoPrivate Sub Command1_Click()'MONTANDO O FILESYSTEMOBJECTDim fso As FileSystemObjectSet fso = New FileSystemObject'============================================================='PEGANDO O ARQUIVO A SER LIDOSet stream = fso.GetFile("config.txt")Set arquivo = stream.OpenAsTextStream(ForReading)'============================================================='DEFININDO VARIAVEISDim i As IntegerDim lista()'============================================================='LENDO O ARQUIVO ATE O FIMDoi = i + 1arquivo.ReadLineLoop While arquivo.AtEndOfStream <> Truearquivo.Close'============================================================='REDIMENSIONANDO A LISTA()ReDim lista(i)Dim auxlista As Integer'============================================================='RECEBENDO LISTAGEMSet arquivo = stream.OpenAsTextStream(ForReading)auxlista = 0Dolista(auxlista) = arquivo.ReadLineauxlista = auxlista + 1Loop While arquivo.AtEndOfStream <> True'============================================================='INSERINDO AS LINHAS DO ARQUIVO NO LISTauxlista = 0For x = 0 To iList1.AddItem (lista(auxlista))auxlista = auxlista + 1Next'=============================================================Dim cont As IntegerDim diretorio As StringDim fso2 As New FileSystemObjectcont = List1.ListCountProgressBar1.Max = contProgressBar1.Min = 0For x = 0 To iDir1.Path = List1.List(x)diretorio = List1.List(x)fso2.CreateFolder "g:\backup001\" & diretoriofso2.CopyFolder diretorio, "g:\backup001\" & diretorio, TrueProgressBar1.Value = xNext