Отбор файлов в папке - 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
                        

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

12 голосов , оценка 4.167 из 5

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