Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: CD-ROM - problemy z katalogami
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002
CD-ROM - problemy z katalogami

Pytanie osoby, która miała problemy z zalogowaniem się na forum

Zrobilem maly programik ktory uruchamia mi sie jako autostart plyty (pelni role menu zawartosci plyty). Na formie programu umiescilem kilka przyciskow, z ktorych kazdy powinien otwierac inny, okreslony plik z plyty. W kodzie przyciskow jest:  x = Shell("start katalogplik.doc", 3). Problem polega na tym ze u mnie to pieknie chodzi, ale jak probuje to uruchomic na innych kompach to wychodzi: run time error '53'. Jak to naprawic lub jaka jest inna funkcja rozwiazujaca moj problem? Prosze o w miare szybka odpowiedz, z gory dziekuje!

[Post edytowany dnia 11-04-2004 19:47 przez Jelcyn]


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

11-04-2004 19:46
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002

hmmm, ja bym zrobił coś takiego:

w deklaracjach:
Public Litera as string*1

w form_load:
Litera=left$(app.path,1)

w kodzie wywołującym pliki z płyty:
x=shell("start "+Litera+":\katalog\plik.doc"


aha i plik start.exe nie występuje chyba w windows XP i 2000


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

11-04-2004 19:49
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Porada Jelcyna myślę, że jest bardzo trafna, ponieważ musisz określić ścieżkę (w tym i literę dysku), z którego dokonujesz uruchomienia danego pliku.
Moim zdaniem, aby w pełni wykorzystać funkcję Shell, musisz podać - oprócz pełnej ścieżki do uruchamianego pliku - również pełną ścieżkę do skojarzonego programu, np.:

Litera=left$(app.path,1)
retVal = Shell("Crogram FilesMicrosoft OfficeOfficeWinWord.exe" & Litera & ":katalogplik.doc"

Musi zadziałać! -> pod warunkiem, że istnieje skojarzony z danym plikiem program.

Pamiętaj również, że office mże być zainstalowany w różnych miejscach. Tę wartość jednak można odczytać z rejestrów Windows.

[Post edytowany dnia 11-04-2004 20:19 przez losmac]


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

11-04-2004 20:17
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002


Porada Jelcyna myślę, że jest bardzo trafna, ponieważ musisz określić ścieżkę (w tym i literę dysku), z którego dokonujesz uruchomienia danego pliku.
Moim zdaniem, aby w pełni wykorzystać funkcję Shell, musisz podać - oprócz pełnej ścieżki do uruchamianego pliku - również pełną ścieżkę do skojarzonego programu, np.:

Litera=left$(app.path,1)
retVal = Shell("Crogram FilesMicrosoft OfficeOfficeWinWord.exe" & Litera & ":katalogplik.doc"

Musi zadziałać! -> pod warunkiem, że istnieje skojarzony z danym plikiem program.

Pamiętaj również, że office mże być zainstalowany w różnych miejscach. Tę wartość jednak można odczytać z rejestrów Windows.


U mnie nie zadziała, bo mam tylko OpenOffice :-)

Polecam taki kawałek kodu (oczywiście zamiast c:\1.txt należy wpisać nazwę Twojego pliku, tak jak w pierwszej odpowiedzi tego postu podałem.


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


Private Sub Form_Load()
Dim Z As Long
Z = ShellExecute(Form1.hwnd, "open", "c:\1.txt", "", "", 1)
End Sub


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

12-04-2004 14:52
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Jelcyn... Ty... żartownisiu!

I zobacz, jak na to nie patrzeć, to funkcja WinApi jest najlepsza. Jako jeden z argumentów podajesz, co chcesz zrobić z danym plikiem i już!


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

13-04-2004 20:56
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1