PathNet$ = "\\Тираж\2_На верстку\686\обзоры\
PathNet2$ = Dir(PathNet$, vbDirectory) 'сначала ищем соответствующую подпапку
Do While PathNet2$ <> ""
If InStr(PathNet2$, 'металлургия") Then Exit Do
PathNet2$ = Dir 'здесь получили название подпапки с картинками для обрабатываемого дока
Loop
Почему ищутся не только папки?
Такой вопрос возник:
Ищу директорию, в которой должны быть картинки к обрабатываемому документу. Эта папку ищу по соответствию названию документа. А именно:
Но в этой папке находится и Ворд-документ, c этим же названием "Металлургия". И в перебор почему-то он тоже попадает, несмотря на параметр vbDirectory.
Пришлось добавить условие наличия в названии строки "картинки" (папка с картинками так и называется "картинки к металлургии")
Непонятно, что тогда давал параметр vbDirectory?
Ищу директорию, в которой должны быть картинки к обрабатываемому документу. Эта папку ищу по соответствию названию документа. А именно:
Код:
Но в этой папке находится и Ворд-документ, c этим же названием "Металлургия". И в перебор почему-то он тоже попадает, несмотря на параметр vbDirectory.
Пришлось добавить условие наличия в названии строки "картинки" (папка с картинками так и называется "картинки к металлургии")
Код:
Do While PathNet2$ <> ""
If InStr(PathNet2$, "картинк") Then _
If InStr(PathNet2$, 'металлургия") Then Exit Do
PathNet2$ = Dir 'здесь получили название подпапки с картинками для обрабатываемого дока
Loop
If InStr(PathNet2$, "картинк") Then _
If InStr(PathNet2$, 'металлургия") Then Exit Do
PathNet2$ = Dir 'здесь получили название подпапки с картинками для обрабатываемого дока
Loop
Непонятно, что тогда давал параметр vbDirectory?
Ээх, фтопку такой поиск имхо. Наилучший способ (главное очень быстрый) - АПИшными процедурами. FindFileFirst-FinFileNext-FinFileClose
Цитата: SkyM@n
Ээх, фтопку такой поиск имхо. Наилучший способ (главное очень быстрый) - АПИшными процедурами. FindFileFirst-FinFileNext-FinFileClose
Я за "топки" обеими руками (в смысле, за скорость). :) А Апишные функции можно выполнять из-под VBA? И можно ли где про них что-то почитать (а то не бум-бум)? :o
Цитата: Dmitry2064
А Апишные функции можно выполнять из-под VBA? И можно ли где про них что-то почитать (а то не бум-бум)? :o
Можно, но это уже не совсем сочетается с концепцией ВБА, это уже пошло в сторону системного программинга (хотя все же очень далеко до него)
А апишки - они и в Африке апишки. Они те же, что и для С/С++, Паскаля, Дельфи, Вб.... Это же виндовые функции. Почитать - в гугле. Вряд ли все выйдет перечитать, что даст гугля))