Перемещение всех файлов

[Мамонт]

Код: Выделить всё

Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long

Private Sub Form_Load()
MoveFile "C:\1.txt", "C:\Temp\1.txt"
End Sub


Это перемещение одного файла! А как мне переместиь все файлы с расширением *.txt ??

[Sirik]

найти список используя dir

[AndreyIl]

Если перемещение абсолютно всех файлов с расширением "txt", то:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService. _
ExecQuery("Select * from CIM_DataFile where Extension = 'txt'")
For Each objFile in colFiles
strCopy = "C:\ToCopyTxt\" & objFile.FileName _
& "." & objFile.Extension
objFile.Copy(strCopy)
objFile.Delete
Next

Если перемещение файлов только из этой папки ("C:\1"), то:

ExecQuery("Select * from CIM_DataFile where Path='\\1\\' and Extension='txt'")

[Andrey Fedorov]

Это перемещение одного файла! А как мне переместиь все файлы с расширением *.txt ??

Рекомендую использовать API-шную функцию SHFileOperation. Посмотри на ее флажки... Пример использования легко найти в API-Guide или интернете. Скорей всего и в данном форуме есть...