Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Pytaniko o uruchomianie innych programow
andrey
Łódź



Typ: neutral
Postów: 295
Zarejestrowany: Mar 2003
Pytaniko o uruchomianie innych programow

Czuje sie jak kompletny laik ale zadam to pytanie Dzlaczego kawałek kodu który tutaj stosuje nie otwiera mi pliku textowego w notatniku

sciezka = App.Path & "\Help.txt"

If Dir(sciezka) = "" Then
    MsgBox "Nie moge znalezc: " & sciezka, vbOKOnly, "Brak pliku pomocy"
    Exit Sub
Else
    sciezka = "start " & sciezka
    x = Shell(sciezka)
End If


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

12-03-2004 07:59
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
Rekin



Typ: neutral
Postów: 63
Zarejestrowany: Mar 2003

Yo
Musisz wpisac tak:

shell "start.exe sciezka"

Narqa


_____________________________________________
+ 1 post
www.google.pl

12-03-2004 10:54
Pokaż profil Rekin  Wyślij email do Rekin   Odwiedź stronę Rekin       3029607
hicks
raptor user



Typ: moderator
Postów: 279
Zarejestrowany: Apr 2003

Możesz też użyć API:

Private 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
Const SW_SHOWNORMAL = 1

Private Sub Form_Load()
    ShellExecute Me.hwnd, vbNullString, "c:\jakiś_plik.txt", vbNullString, "C:\", SW_SHOWNORMAL
End Sub


_____________________________________________
TLHW Clan member

12-03-2004 11:47
Pokaż profil hicks  Wyślij email do hicks   Odwiedź stronę hicks       2511367
andrey
Łódź



Typ: neutral
Postów: 295
Zarejestrowany: Mar 2003

Dzieki hicks funkcja Api pomogła Nie wiem dlaczego wczesniej jak ja deklarowałem i probowałem zastosowac nic nie chciało ruszyc Ważne że ruszyło teraz Co do metody Rekina próbowałem użyć shell-a na miliony sposobow i za kazdym razem juz miało zaskoczyc i sie na tym konczylo Z czystej ciekawosci nie wiecie jakie moga byc tego przyczyny?


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

12-03-2004 13:42
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
m-a-x



Typ: neutral
Postów: 366
Zarejestrowany: Jan 2003

Najprawdopodobniej w app.path występowały spacje i jak wywołasz to z shella np tak start.exe C:\dwa kije\zonk.txt to ci nie zadziała - rozwiązaniem tego problemu jest ujęcie tego w cudzysłów

Shell "start.exe " & chr(34) & sciezka & chr(34)


_____________________________________________

Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania!

16-03-2004 15:50
Pokaż profil m-a-x  Wyślij email do m-a-x   
Rekin



Typ: neutral
Postów: 63
Zarejestrowany: Mar 2003

Yo

Ja napisałem tylko składnię funkcji Shell bo myślałem, że domyślisz się w czym leży błąd.

Max wytłumaczył jak masz ją zastosować, wiec problemów żadnych już nie powinieneś mieć.

Narqa


_____________________________________________
+ 1 post
www.google.pl

16-03-2004 16:45
Pokaż profil Rekin  Wyślij email do Rekin   Odwiedź stronę Rekin       3029607
Wszystkich odpowiedzi: 5 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1