Пара вопросов

[Charles]

1. Как проверить существует ли директория?
Len(Dir(MyPath)) - возвращает 0 если в директории нет файлов.
Я проверяю через MkDir - но это как-то грубо и не подходит для сетевых путей...

2. Как заюзать pkzip через VB - с Shell'ом у меня не получается?..

[GSerg]

1. RTFM. vbDirectory.
2. Shell'ом получается. Почему не получается у тебя?

[Andrey Fedorov]

1. Как проверить существует ли директория?
Len(Dir(MyPath)) - возвращает 0 если в директории нет файлов.
Я проверяю через MkDir - но это как-то грубо и не подходит для сетевых путей...

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

Private Function FolderExists(sFolder As String) As Boolean
    On Error Resume Next
    FolderExists = ((GetAttr(sFolder) And vbDirectory) = vbDirectory)
End Function


2. Как заюзать pkzip через VB - с Shell'ом у меня не получается?..

Ищи примеры с использованием CreateProcess.

[alibek]

Можно и проще. В каждой папке, кроме корневой, есть элементы-файлы "." и "..". И в каждой папке, включая корневую, есть элементы-файлы типа "nul", "prn", "con" и т.п. (устройства). Можешь проверять их существование.

[Andrey Fedorov]

Можно и проще. В каждой папке, кроме корневой, есть элементы-файлы "." и "..". И в каждой папке, включая корневую, есть элементы-файлы типа "nul", "prn", "con" и т.п. (устройства). Можешь проверять их существование.

Проверять как? Проще все одно не выйдет. Dir использовать нельзя т.к прав на листинг может и не быть.

P.S Если же забыть про дюже старые операционки (с IE менее чем 4-ой версии), то можно использовать API-шную функцию PathIsDirectory.

[Arcanoid]

Есть такая функция: SearchPath() называется. Я правда её не пробовал... Может оная конечно вааще из другой оперы...

[Kovu]

Если тебе нужно проверить наличие директории и если её нет сохдать то лучше использовать API MakeSureDirectoryPathExists, которая есть во всех Windows.
Тогда необходимость всякой проверки наличия директорий отпадает

[GSerg]

Ужасный совет.

А MakeSureDirectoryPathExists есть начиная с 2000. А до этого она требует DbgHelp.dll.

[Kovu]

Ужасный совет.

А MakeSureDirectoryPathExists есть начиная с 2000. А до этого она требует DbgHelp.dll.

Не угадал GSerg:

Requires Windows NT 3.1 or later; Requires Windows 95 or later
Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long

В каком месте ты увидел DbgHelp.dll и "есть с 2000"

[Arcanoid]

А MakeSureDirectoryPathExists есть начиная с 2000. А до этого она требует DbgHelp.dll.

Ладно хоть не Microsoft Word!

[GSerg]

MakeSureDirectoryPathExists

Requirements
Client: Included in Windows XP and Windows 2000 Professional.
Server: Included in Windows Server 2003 and Windows 2000 Server.
Redistributable: Requires DbgHelp.dll on Windows NT 4.0 and Windows Me/98/95.

Platform SDK Release: February 2003

[Kovu]

тем не менее я взял это из апи-гайда.там библиотека imagehelp.dll
Так что не надо ляля

[Charles]

За директории сэнкс - завтра на работе проверю...
Зип тожа через шелл работает - у меня названия каталогов паковки русские были - вот и глючело