Prosím o radu (relativní cesta k souboru) – Visual Basic – Fórum – Programujte.com

Zdravím všechny,
chtěl bych se zeptat, možná se už tady někdy, někdo ptal na něco podobného.
Mám jednoduchý program, ve kterém mám timer nastavený, že po např. hodině, mi automaticky spustí dávkový soubor.

Kod: Spust = Shell("C:\Documents and Settings\Plocha\xxx.bat", 1)

A já jsem se chtěl zeptat, jestli je nějakým způsobem možné, aby tato absolutní cesta byla nahrazena nějakou relativní, protože daný dávkový soubor může být přemístěn, např. D:\Složka1\Složka2\xxx.bat

Předem děkuju za odpověď

V proměnné App.Path je uložena cesta k složce programu (bez koncového lomítka)
použití:

Spust = Shell(App.Path &"\xxx.bat", 1)
pro spuštění xxx.bat umístěného ve složce s programem

ATo Michal : Ahoj,
někde jsem něco řešil přes ini soubor, kde se cesta dá libovolně měnit. Z něj se načte do proměnné a dál se zpracovává. Jesli jsi to ještě nevyřešil, napiš na drevikovsky(@)cmail.cz, někde bych našel zdroják.

Zkus to třeba pomocí systémové proměnné, která se lehce nadefinuje v příkazovém řádku příkazem SET (třeba v dávkovém souboru nebo jakkoli jinak např. "SET CESTATAM=C:\Moje cesta")
V kódu se pak načítá např. cesta složky Program Files

Sub Promenna()

Dim EnvString As String



    ' Načtení systémové proměnné (např. %PROGRAMFILES%)

        EnvString = Environ("PROGRAMFILES")

' vrátí hodnotu "C:\Program Files (x86)" ve Win64 a "C:\Program Files" ve Win32

' a výpis...

MsgBox EnvString



End Sub

Nevím proč ale tato cesta (s end - &) mi nikdy nešla ať sem se třeba stavěl na hlavu...
od té doby to řeším takto:

App.Path +"\xxx.bat"

pokud chci o adresář zpět, tak dám ..\ před adresu a pokud v tomto nějakej jinej adresář, tak ho napíšu za to
výsledek může být i takovýto:

App.Path +"..\Media\xxx.cokoliv"

kód adresy se čte od leva, takže o úroveň dolů a najeď do adresáře Media a pak spusť z něj xxx.cokoliv