Существует ли папка?

[D'alex]

Как определить, не используя FSO, существует ли папка?

[A.A.Z.]

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

If Dir("Папка") <> "" Then MsgBox "Есть" Else MsgBox "Нет"

Только не забудь на конце пути к папке слэш поставить ("\")

[D'alex]

Спасибо!

[tyomitch]

Проверка If Len(Dir("Папка")), по многочисленным слухам, заметно быстрее, чем сравнение с пустой строкой.

[Matv]

Я правильно понял?

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

If Dir("e:\tmp\") <> "" Then MsgBox Dir("e:\tmp\") Else MsgBox "Нет"


Я сталкивался с этой проблемой, но обнаружил, что если папка tmp есть на диске, но она пустая, то dir дает ответ "Нет". Последующая попытка создать папку tmp приводила к ошибке. пришлось воспользоваться обработчиком ошибок

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

on error goto Err

Может я что то не правильно понял?

[Konst_One]

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

if Len(dir("e:\temp\",vbDirectory))=0 then
    MsgBox "Not exists!"
end if


[Vitaly1]

Konst_One - умница, в этом случаи и слеша в конце необязательно ставить.

только зачем len

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

if dir("e:\temp\",vbDirectory) ="" then
    MsgBox "Not exists!"
end if

[alibek]

Есть еще один ньюанс. Во всех папках (кроме корневой) всегда есть два элемента, "." и "..", можно по ним проверять существование файла. Кроме того, можно искать файл C:\TEMP\nul -- файл nul "существует" во всех папках.

[tyomitch]

Не только nul, а ещё prn, aux, con, lptX, и comX, где X - любая цифра.

[alibek]

Ну да
Тогда уж я добавлю, что не nul, prn и т.п., а любое устройство, имеющее зарезервированное имя.

[Konst_One]

теперь тему наверное можно закрыть, спасибо alibek-у

[tyomitch]

Ну да
Тогда уж я добавлю, что не nul, prn и т.п., а любое устройство, имеющее зарезервированное имя.

Афаик таких "устройств" ровно столько и есть, сколько я написал... Т.е. это постоянный набор; например, количество COM-портов на машине на него не влияет.

[GSerg]

Кстати
Вот если я делаю "Печать в файл", то потом получившийся файлик я могу применить кроме как с командной строки написать copy prn?

[alibek]

Больше никуда не применишь, это фактически дамп для принтера. Т.е. если ты этот файлик перешлешь на принтер другой модели, скорее всего ничего не выйдет.
Кстати, можно установить принтер "Generic / Text only" и включить вывод в файл, так можно "сграбить" распечатываемые тексты.
Эти устройства (вернее их наличие в каждой папке) обусловленно следующим.
Можно выполнить команду dir > C:\result.txt, при этом будет результат выполнения команды будет записан в файл C:\result.txt. Можно выполнить команду dir > result.txt, тогда результат будет записан в файл result.txt в текущем каталоге. Ну а наличие nul и пр. в каждом каталоге нужно для того, чтобы команду вида dir > prn можно было выполнить в любом каталоге.
И если я не путаю, до недавнего времени нельзя было проверить таким способом существование каталога на сетевом ресурсе (заданном в UNC).

[GSerg]

Больше никуда не применишь, это фактически дамп для принтера. Т.е. если ты этот файлик перешлешь на принтер другой модели, скорее всего ничего не выйдет.

Ясно
Просто когда мне нужно распечать нечто из программы, которой нет там, куда я иду, то я предварительно узнаю тамошнюю модель принтера, печатаю у себя в файл для неё и несу туда...

[alibek]

Ага. В этом смысле HP рулят, т.к. у них высокая совместимость (особенно если используется PCL, а не PS). А вот лазерники Canon -- это жуть большая.