skid
Goto Top

Programmpfad auslesen bzw. Dateien suchen

Hallo,

habe da mal ein kleines Problem.....

Suche eine Möglichkeit das mir beim Starten eines VB-Skriptes ausliest wo dieses sich gerade befindet d.h. welcher Programmpfad.

Es geht darum das ich ein Skript habe welches ein anderes mit dem einen oder anderen Tool zusammen aufruft.
Das Funktioniert aber nur wenn ich im Skript den Pfad eintrage wo sich die anderen benötigten Dateien befinden sollen.

Ich möchte dies aber gerne Variabel halten - egal in welchen Ordner oder Verzeichnis ich die Dateien kopiere soll das Skript nach diesen Dateien suchen und diese in eine Variable setzen so das das Programm wieder laufen kann.

Hoffe das jemand dazu eine Idee hat face-wink

Gruss
SKID

Content-ID: 43900

Url: https://administrator.de/contentid/43900

Ausgedruckt am: 23.11.2024 um 01:11 Uhr

Biber
Biber 07.11.2006 um 14:11:26 Uhr
Goto Top
Moin skid,

sowas in der Art...?
...
Function ScriptPath()
        Dim strSFN
        strSFN = WScript.ScriptFullName
        ScriptPath = Left(strSFN, InStrRev(strSFN, "\") - 1)  
    End Function
...

Gruß
Biber
skid
skid 07.11.2006 um 14:41:52 Uhr
Goto Top
Gude Biber,

ganz genau sowas in der Art.

Habe gleich mal den Test gemacht - Funktioniert super!

und ich such den halben Tag........

Ach ja, nochwas.....

wie muss denn diese Zeile strSFN = WScript.ScriptFullName in VB heißen

Gruss
Skid
bastla
bastla 07.11.2006 um 15:57:38 Uhr
Goto Top
Hallo Skid!

VB 6.0App.Path
VB 2005Application.StartupPath
VBAApplication.Path

... oder meintest Du ein anderes VB? face-wink

HTH
bastla
skid
skid 08.11.2006 um 07:31:13 Uhr
Goto Top
Moin bastla,

VB 6.0 passt schon face-wink

Bei strSFN = WScript.ScriptFullName bekomme ich die Meldung Laufzeitfehler 424 - Objekt erforderlich

Mit Deinen Vorschlägen siehts auch nicht anders aus.

Ich habe bestimmt nur eine Kleinigkeit vergessen - aber was nur ? face-wink

Gruss

SKID
Biber
Biber 08.11.2006 um 09:21:37 Uhr
Goto Top
Moin skid,

bist Du in der Zeile verrutscht? face-wink

strSFN = App.Path

...bei VB 6.0, wenn bastla richtig recherchiert hat, wovon ich wie immer ausgehe.

Gruß
Biber
skid
skid 08.11.2006 um 09:43:10 Uhr
Goto Top
Moin Biber,

ja, irgendwie hab ich die ganze Zeit an was falschem rumgebastelt face-wink - schande....

aber jetzt funktionierts!

Gruss
SKID
Biber
Biber 08.11.2006 um 10:04:35 Uhr
Goto Top
Freut mich,

dann setz doch diesen Thread bitte auf "Gelöst"...
...sonst schaffen wir unsere Quote hier nicht face-wink

Liebe Grüße zurück
Biber