Extractfile(path$ ?)

  • Автор темы oxystile
  • Дата начала
Статус
Закрыто для дальнейших ответов.
O

oxystile

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

в коде ниже получаем "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]
 
E

Elena Nefedova

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

kilcher

Гость
#4
Всем привет! Пожалуйста помогите разобраться!
Проверяю наличие папки на диске с,если нет то создаю.
Сначала проверяю
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
Так вот если нет папки,то соответственно ругается что директория не найдена и ничего не создает.
 
Статус
Закрыто для дальнейших ответов.