Extractfile(path$ ?)

Тема в разделе "Lotus - Программирование", создана пользователем oxystile, 19 янв 2009.

Статус темы:
Закрыта.
  1. oxystile

    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]
     
  2. Elena Nefedova

    Elena Nefedova Гость

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

    oxystile Гость

    спасибо!!! оно самое :)
     
  4. kilcher

    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
    Так вот если нет папки,то соответственно ругается что директория не найдена и ничего не создает.
     
  5. azat20

    azat20 Well-Known Member

    Регистрация:
    22 июл 2008
    Сообщения:
    244
    Симпатии:
    0
    s$ = Dir$(pathName$,16)
    If s$ = "" Then
    Mkdir(filepath$ & "\")
    End If
     
  6. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
     
  7. kilcher

    kilcher Гость

    Спасибо!!!!!!!!!!!!!! ;)
     
Статус темы:
Закрыта.

Поделиться этой страницей