iFileName$ = Dir(Dirr$ & "*.jpg")
Do While iFileName$ <> ""
Dd$ = Dirr$ & iFileName$
Dde$ = Dest$ & iFileName$
FileCopy Dd$, Dde$
iFileName = Dir
Loop
Можно ли расширить маску?
Копирую все файлы-картинки из папки по такой схеме:
Вот можно ли как-то заодно копировать и все остальные картинки (они могут быть и bmp и gif? Или как записать наоборот - "копировать все, кроме *.doc". Т.к. в папке только doc и картинки.
Код:
Вот можно ли как-то заодно копировать и все остальные картинки (они могут быть и bmp и gif? Или как записать наоборот - "копировать все, кроме *.doc". Т.к. в папке только doc и картинки.
Не въехал.
Вообще то iFileName = Dir - Runtime error.
Почему бы тебе не использовать FileListBox, задать для него маску и в цикле перебрать все FileListBox.List(i).
Вообще то iFileName = Dir - Runtime error.
Почему бы тебе не использовать FileListBox, задать для него маску и в цикле перебрать все FileListBox.List(i).
Цитата: Dmitry2064
... Или как записать наоборот - "копировать все, кроме *.doc". Т.к. в папке только doc и картинки.
Код:
Option Compare Text
Sub Example()
Dim strFileName As String
strFileName = Dir$("c:\temp\*.*")
If Len(strFileName) > 0 Then
Do
If Right$(strFileName, 4) <> ".doc" Then
MsgBox strFileName
End If
strFileName = Dir$
Loop While Len(strFileName) > 0
End If
End Sub
Sub Example()
Dim strFileName As String
strFileName = Dir$("c:\temp\*.*")
If Len(strFileName) > 0 Then
Do
If Right$(strFileName, 4) <> ".doc" Then
MsgBox strFileName
End If
strFileName = Dir$
Loop While Len(strFileName) > 0
End If
End Sub
Т.е. как я понял, на место "MsgBox strFileName" и надо вставить мои команды на копирование?
To Tiraspolsky:
я сам-то узнал про полезность Dir$ только на этом форуме :o.
To Tiraspolsky:
я сам-то узнал про полезность Dir$ только на этом форуме :o.
Цитата: Dmitry2064
Т.е. как я понял, на место "MsgBox strFileName" и надо вставить мои команды на копирование?
Верно.
Большое спасибо, все отлично сработало.