VBNet - Форум - Копирование файла

Вопрос: Копирование файла Добавлено: 06.09.02 15:41

Автор вопроса: spektr

У меня такая проблема мне нужно копировать файлы в другую папку я копировал вот так
Private Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long)
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
A = CopyFile("C:\Kadinf\1123.DBF", "c:\Safe\1123.DBF", False)
прекрасно работает, а теперь нежно копировать файлы например: все файлы с расширением DBF такие варианты *.DBF не идут. Подскажите как сделать чтобы он копировал все DBF .
Спасибо

Ответить

Ответы Всего ответов: 4

Номер ответа: 1
Автор ответа:

POST

Вопросов: 14
Ответов: 269

Web-сайт: www.vbnet.ru
Профиль | | #1

Добавлено: 06.09.02 16:05

попробуй читать имя файла и проверять его функцией Like. Черт его знает....

Ответить

Номер ответа: 2
Автор ответа:

LIS

Вопросов: 7
Ответов: 256

Профиль | | #2

Добавлено: 07.09.02 03:21

' usu listBox for keeping info ...

Const fromdr = "c:\imsdir\"

Const target = "c:\kuku\"

Private Sub Form_Load()

cd = Dir(fromDR+"*.dbf")

Do While cd <> vbNullString

List1.AddItem cd

cd = Dir

Loop

For i = 0 To List1.ListCount - 1

FileCopy fromdr + List1.List(i), target + List1.List(i)

End Sub

and GOOD LUCK...

Ответить

Номер ответа: 3 Автор ответа: spektr Вопросов: 13 Ответов: 14	Профиль \| \| #3	Добавлено: 09.09.02 11:34
	Огромное спасибо LIS Ответить

Номер ответа: 4
Автор ответа:

LIS

Вопросов: 7
Ответов: 256

Профиль | | #4

Добавлено: 09.09.02 15:20

No problem ...

Ответить

Страница: 1 |