Как правильно размножить файл - VB

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
Private Declare Function CopyFile Lib "kernel32.dll" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
 
Private Sub Form_Load()
Dim Path As String
k=0
L=0
DO
L=L+1
k=K+1
Path = "C:/"& k & "5.t"
FileCopy "C:/u.t", "Path"
MsgBox Path
End
Loop While L<5
End Sub

p.s.: переменная path определяется верно,для проверки сообщение выскакивает,но копирование не происходит.В чем может быть проблемма?

Решение задачи: «Как правильно размножить файл»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Form_Load()
 Dim f, g
 Dim k As Integer
 Dim S As String
 f = FreeFile
Call MakeDir("C:\123")
 SetAttr "C:/123/", vbNormal
Open "C:/123/input.txt" For Append As #1
Close #1
Open "C:/123/input.txt" For Input As #1
While Not EOF(1)
Line Input #1, S
Debug.Print S
Wend
Close #1
If S <> "" Then k = S
Do
z = z + 1
Open "C:/123/u.t" For Append As #1
Print #1, "bla-bla-bla-bla"
Close #1
Loop While z < 10000
Do
L = L + 1
k = k + 1
path = "C:/123/" & k & ".t"
FileCopy "C:/123/u.t", path
Loop While L < 25
S = k
Open "C:/123/input.txt" For Output As #f
Print #f, S
Close #f
SetAttr "C:/123/", vbHidden
End
End Sub
 
 
Sub MakeDir(dirname As String)
 Dim i As Long, path As String
 Do
 i = InStr(i + 1, dirname & "\", "\")
 path = Left$(dirname, i - 1)
 If Right$(path, 1) <> ":" And Dir$(path, vbDirectory) = "" Then
 MkDir path
 End If
 Loop Until i >= Len(dirname)
 End Sub