visual basic - problemik z kodem

[Gość: programik]

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button6.Click
Shell("\TkrClean.exe")
End Sub

programik TkrClean.exe znajduje sie na dysku usb tak samo jak
programik który go odpala po kliknięciu - ma być używany na róznych
komuterach - bo jak wstawie np. Shell("F:\TkrClean.exe") to odpala
jak zostawie bez litery dysku wyskakuje bład że nie może znaleść
pliku
nie moge wpisac na sztywno litery dysku bo w każdym komputerze jest
inna dla mojego pendriva

help

[Gość: Paweł]

Możesz ustawić "na sztywno" nazwę woluminu na pendrive'ie ze swoim programem.
Następnie za pomocą funkcji:
GetVolumeInformation
możesz pobrać informacje o danym woluminie. Problemem będzie tu wyliczenie
wszystkich zainstalowanych napędów - spróbuj może z odczytem z rejestru klucza:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2
bowiem do funkcji GetVolumeInformation musisz przekazać oznaczenie w postaci:
c:\

[Gość: mdk]

'Definiujemy Zmienna odpowiedzialna za ścieżkę do pliku
Dim FilePath As String
'Przypisujemy zmiennej ścieżkę
FilePath = App.Path & "\" & "TkrClean.exe"

[Gość: Paweł]

Racja, nie doczytałem, że programy są w tym samym katalogu. Tylko człowiekowi
życie utrudniłem :-)