Extractfile(path$ ?)

[oxystile]

Доброго!
Подскажите, пожалуйста, как делать проверку на существование папки (в случае отсутствия-создавать ее)

в коде ниже получаем "File cannot be creared" в случае когда папка test1 не существует
[codebox]Set rtitem = doc.GetFirstItem( "Attach" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
fileCount = fileCount + 1
Call o.ExtractFile ( "D:\test1\newfile" & Cstr(fileCount) )
End If
End Forall
End If[/codebox]

 

[Elena Nefedova]

Проверку делаем с помощью dir (см. help)
Создаем папку командой mkdir
Чтобы создать каталог, необходимо, чтобы его родительский каталог уже был создан. Так что - проверяйте и создавайте

 

[oxystile]

спасибо!!! оно самое

 

[kilcher]

Всем привет! Пожалуйста помогите разобраться!
Проверяю наличие папки на диске с,если нет то создаю.
Сначала проверяю
Dim pathName As String, fileName As String
pathName$ = "c:\docKK\*.*"
fileName$ = Dir$(pathName$, 0)

Do While fileName$ <> ""
Print fileName$
fileName$ = Dir$()
Loop
если нет создаю
If fileName$="" Then
Mkdir "c:\docKK"
End If
Так вот если нет папки,то соответственно ругается что директория не найдена и ничего не создает.

 

[azat20]

s$ = Dir$(pathName$,16)
If s$ = "" Then
Mkdir(filepath$ & "\")
End If

 

[Akupaka]

Dim pathName As String, fileName As String
pathName$ = "c:\docKK"
fileName$ = Dir$(pathName$, 16)

If fileName$="" Then
Mkdir "c:\docKK"
End If