25.07.2007, 17:03 | #1 |
Участник
|
Всем добрый день!
Мой вопрос связан с открытием файла из navision. Файл открываю так: CREATE(ShellEx); ShellEx.Open('file name'); CLEAR(ShellEx); где ShellEx это (Automation - 'Microsoft Shell Controls And Automation'.Shell) может быть кто-то знает, как сделать проверку на открытие файла. То есть, если файл не открыт или не найден, то выдается ошибка.. Все заранее спасибо! |
|
25.07.2007, 17:23 | #2 |
Участник
|
Сначала проверьте средствами Nav что файл есть и открывается
Код: IF File.OPEN('file name') THEN BEGIN CREATE(ShellEx); File.CLOSE; ShellEx.Open('file name'); CLEAR(ShellEx); END; |
|
25.07.2007, 17:26 | #3 |
Участник
|
Еще можно так
Код: Name DataType Subtype Length Folder Automation 'Microsoft Shell Controls And Automation'.Folder3 FolderItem Automation 'Microsoft Shell Controls And Automation'.FolderItem2 FolderItem := Folder.ParseName(fileName); IF NOT ISCLEAR(FolderItem ) THEN FolderItem.InvokeVerbEx('open'); |
|