Ламерский вопрос

[DIMzone]

Подскажите ламеру, существует ли функция просто для открытия файла (с заданием пути в качетве параметра).
Shell не подходит, так как открывает файлы только из системного пути (C:\windows\system32). Или я не прав?

[Sirik]

без указания полного пути к файлу функция ищет его в разшаренных папках (переменная PATH=)

[CORBA]

Подскажите ламеру, существует ли функция просто для открытия файла (с заданием пути в качетве параметра).
Shell не подходит, так как открывает файлы только из системного пути (C:\windows\system32). Или я не прав?

shell открывает проги из любого явно прописанного пути

Examle:

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


Dim ProcID As Integer
   ' Run Calculator.
ProcID = Shell("C:\WINDOWS\CALC.EXE", AppWinStyle.NormalFocus)


[Хакер]

Я думаю здесь проблема вот в чём.

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


Shell "C:\Windows\System32\Notepad.exe C:\Моя папка\Какой - то файл.txt"


не открывает "какой то файл"
А вот если DSIHMAJUL.TXT лежит в папке Windows\System32 тогда открывает.

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


Shell "C:\Windows\System32\Notepad.exe DSHIMAJUL.TXT"

[/syntax]

Дело в том что путь проги и путь к файлу должен быть заключён в кавычки т.е

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


Program="C:\Windows\System32\Notepad.exe"
FileName = "C:\Мои документы\Всякие папки\Какой то файл.txt"
Shell Chr(34)+Program+Chr(34)+" "+Chr(34)+FileName+Chr(34)
'// Chr(34) - это символ кавычки.
'// дыбы не писать """""""+...


[SeT]

' Декларация функции для запуска файла.
Public Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

' Декларация константы для максимизирования окна открываемого приложения.
' Для работы с другими константами смотрите MSDN.
Public Const SW_SHOWMAXIMIZED = 3

'После этого нижеследующий код будет открывать файл test.xls.

Call ShellExecute(0, "open", "test.xls","", "", SW_SHOWMAXIMIZED)


Я всегда этим пользуюсь

[DIMzone]

2 all Благодарю всех за помощь!

2 SeT , А как задать эту функцию, чтобы он отделил ее от general Declarations?

[GSerg]

А зачем её отделять?

[eugene2005]

WinExec, позволяет параметры тоже слать.

[DIMzone]

Как обьявлять Public Declare Function?

[GSerg]

Так и написать, Public Declare Function. В модуле. RTFM.

[SeT]

Если неохота в модуле писать, Declare пропусти.

[GSerg]

Вау!
Покажи объявление API без declare.

[Amed]

Имелось в виду Public