чуваки памогите!!!!
как в БАСИКе задавать путь к файлу?
я хочу к примеру зделать для CD автостарт.
я могу зделать окно с кнопками и текстом, но не могу
зделать так чтобы если я ету кнопку дрюкал то открывался
файл каторый лежит в папке.
если кто знает, то пишите как замутить или ссылки где можно
про ето почитать либо шлите примеры.
заранее благодарин

Ты начинающий или как?
Пришёл, увидел, .......

ShellExecute спасет отца русской демократии

Есть немного ссылок по VB
http://www.russinger.com/modules.php?name=Web_Links&l_op=viewlink&cid=162
А совет дельный дали вот типа как на С
hINSTANCE hInstance;
hInstance = ::ShellExecute( NULL
, "open"
, sPath
, NULL
, NULL
, SW_SHOWNORMAL
,0);

я только начинаю в BASIKe и поетому есче
не догоняю в етих всех терминах. по етому пишите по подробней плиз.!

Посмотри http://homepages.compuserve.de/DiplPackulat/Default.htm
Пришёл, увидел, .......

dim ergbenis as String
dim Pfad as String
Pfad = "c:\moj_ordner\programma.exe"
' если путь полность задать
Pfad = ".\moi_ordner\programma.exe"
' если путь не полностью задать
ergbenis = shell(Pfad)
Ученье свет, а не ученье - чуть свет и на работу.

Ученье свет, а не ученье - приятный полумрак!

у меня чегото не получаеться.
вы мне по конкретнее напишите чего я должен писать
если я хочу зделать кнопку при которой у меня открывалася бы сетап
типа
Private Sub Command1_Click()
(?????????????)
End Sub

ну я прямо не знаю, ты программист или где...
В отдельном модуле прописываешь следующие декларации:
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
Public Const SW_SHOWNORMAL = 1
Потом в своей форме, в Command1_Click(), пишешь приблизительно вот такой код:
ShellExecute Form1.hwnd, "open", "C:\MY_FOLDER\MySetup.exe", "", "", SW_SHOWNORMAL
Если вызывать ShellExecute как функцию, типа RetVal = ShellExecute(...), то можно вытащить код возврата. Если он <= 32, то при открытии файла произошла ошибка (путь не найден, и т.д.)

Private Sub Command1_Click()
dim ergbenis as String
dim Pfad as String
Pfad = "c:\moj_ordner\programma.exe"
' если путь полность задать
Pfad = ".\moi_ordner\programma.exe"
' если путь не полностью задать
ergbenis = shell(Pfad)
End Sub
Ученье свет, а не ученье - чуть свет и на работу.