19
Октябрь
2008
Переместить файлы из одной папки в другую
Как переместить все файлы из одной папки в другую?
Option Explicit
Private Sub Form_Load()
Dim i As Integer
Dim strName As String
strName = Dir(App.Path & "\1\" + "*.doc")
Do While strName <> vbNullString
List1.AddItem strName
strName = Dir
Loop
For i = 0 To List1.ListCount - 1
FileCopy App.Path & "\1\" + List1.List(i), _
App.Path & "\2\" + List1.List(i)
Next
End Sub