Копирование и удаление нескольких файлов по маске (VB6)

Private Sub Form_Load()
File1.Pattern = "*.*" 'задал нужную маску
End Sub
 
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
 
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
 
Private Sub Command1_Click()
Dim i As Integer
If File1.ListCount = 0 Then MsgBox "Папка пуста!": Exit Sub
For i = 0 To File1.ListCount - 1
Name Dir1.Path & "\" & File1.List(i) As "c:\windows\temp\" & File1.List(i)
Next i
File1.Refresh
End Sub

Private Sub Command1_Click()
  Dim path_in  As  String 
   Dim path_out  As  String 
   Open "d:\Proba_Ini\CopyFile.ini" For Random As 1 Len = 100
   Get 1, 1, path_in
   Get 1, 1, path_out
   Close 1
  MsgBox a1 
End Sub

  Dim path_in  As String
  path_in = Space(FileLen("d:\Proba_Ini\CopyFile.ini"))
   Dim path_out  As String
   Open "d:\Proba_Ini\CopyFile.ini" For Binary As #1
   Get #1, 1, path_in
   Close #1
  MsgBox path_in

  Dim path_in  As String
  path_in = Space(FileLen("d:\Proba_Ini\CopyFile.ini"))
   Dim path_out  As String
   Open "d:\Proba_Ini\CopyFile.ini" For Binary As #1
   Get #1, 1, path_in
   Get #1, 2, path_out
   Close #1
  MsgBox path_in
  MsgBox path_out

 Dim path_in As String                                   
    Dim path_out As String  
    Open App.Path & "\CopyFile.ini" For Input As #1        
    Input #1, path_in              
    Input #1, path_out        
    Close #1                               
  MsgBox path_in
  MsgBox path_out