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

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

Подскажите плиз "чайнику без ручки" как копировать и удалять несколько файлов по маске *.* Как копировать один файл нашел: FileCopy "путь/файл" "путь/файл" а вот несколько ...

Решение задачи: «Копирование и удаление нескольких файлов по маске (VB6)»

textual
                            Листинг программы 
                        
 
                        
                          
                    
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

Оцени полезность:

11 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы