Prozedur in globale Funktion umwandeln
20.11.2012 09:56:32
Till
ich möchte gerne eine Prozedur in eine globale Funktion umwandeln, so dass ich diese in jedem beliebigen Modul verwenden kann, um nicht den Pfad immer neu ermitteln zu müssen.
Geht das überhaupt?
Was ich habe ist folgendes:
Option Explicit
Public tPath As String
' das war ein erster Versuch der nichts brachte, da tPath außerhalb dieses Moduls natürlich "leer" war.
Sub Auslesen()
Dim WSHShell
Set WSHShell = CreateObject("Wscript.Shell")
Dim sPath As String
'Jetbase
sPath = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App _
Paths\jetbasel.exe\")
Dim i As Integer
Dim si As Variant
tPath = Left(sPath, Len(sPath) - 12) & "JEX\jex.txt"
'MsgBox tPath
End Sub
Was ich bewirken will ist, dass ich den Pfad zu "jex.txt" also "tPath" als globale Variable überall, also auch in den "benachbarten Modulen, verwenden möchte.
Wie stelle ich das an? Geht das über eine globale Funktion?
Ich hoffe, Ihr könnt mir hier weiterhelfen!
Danke schon mal!
Lb. Gruß
Till
Anzeige