Копирование и удаление нескольких файлов по маске (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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д