With Application.FileSearch
.NewSearch: .LookIn = "C:\123\": .FileName = "*.pmd": .Execute
If .FoundFiles.Count = 0 Then GoTo skipp
FPath = Split(.FoundFiles(1), "\") 'тут единица, т.к. файл *.pmd всегда только один.
FilePath1 = "C:\123\" & FPath(3)
FilePath2 = "C:\1234\" & FPath(3)
fso1.CopyFile FilePath1, FilePath2, True
End With
skipp:
Как можно выйти из цикла With - End with
Сделал так:
Можно ли как-то иначе покинуть эту конструкцию, нежели с помощью goto?
И еще вопрос. У меня не получилось избежать прямого указания номера в массиве FPath(3). Подскажите пожалуйста, как использовать Ubound в данном случае.
Спасибо.
Код:
Можно ли как-то иначе покинуть эту конструкцию, нежели с помощью goto?
И еще вопрос. У меня не получилось избежать прямого указания номера в массиве FPath(3). Подскажите пожалуйста, как использовать Ubound в данном случае.
Спасибо.
Наверно выйти из цикла With можно так- EXIT With.
Может я неправ, давно на Visual Basic не писал.
Может я неправ, давно на Visual Basic не писал.
With...End With - это не цикл, а конструкция, которая облегчает при написании кода получать доступ к переменным внутри контейнера.
Точно. Без отсыла к метке не обойтись.
А вот этого делать нельзя. Забудтьте пор GoTo/GoSub!
Лучше найдите другой путь. Ведь он есть и как минимум - один.
Лучше найдите другой путь. Ведь он есть и как минимум - один.
Верно. Все делается проще пареной репы. Вместо:
If .FoundFiles.Count = 0 Then GoTo skipp
надо:
If .FoundFiles.Count <> 0 Then
...
copy что-то там куда-то там
...
End if
И никаких goto!
Спасибо за стимуляцию мозгов ;-)))
If .FoundFiles.Count = 0 Then GoTo skipp
надо:
If .FoundFiles.Count <> 0 Then
...
copy что-то там куда-то там
...
End if
И никаких goto!
Спасибо за стимуляцию мозгов ;-)))