Отбор файлов в папке - VB
Формулировка задачи:
Помогите пожалуйста с кодом. Как сканировать папку, выбрать из нее файлы тхт и переместить их в другую папку?
Решение задачи: «Отбор файлов в папке»
textual
Листинг программы
- Private Sub Form_Load()
- TxtFileMove "D:\From", "D:\To"
- End Sub
- Private Function TxtFileMove(FromPath As String, ToPath As String) As Long
- Dim fName As String
- fName = Dir(FromPath & "\*.txt")
- Do While Len(fName)
- Name FromPath & "\" & fName As ToPath & "\" & fName
- TxtFileMove = TxtFileMove + 1
- fName = Dir()
- Loop
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
