von jkl » Di, 20.05.2008 18:23
Hallo,
sorry dass ich so lange nicht geantwortet habe, aber hatte keine Zeit, mich dem Problem zu stellen.
Beim heutigen Fehlersuchen habe ich das Skript wieder ans laufen bekommen. Ich würde jetzt auch sofort auf einen Fehler von mir tippen, wenn das Skript nicht nach dem Update ohne Änderung gestreikt hätte. Keine Ahnung aber es läuft und mehr will ich auch nicht. Zu der Frage und damit es nicht aussieht als wäre ich zu blöd zum nachprüfen und wolle nur die freundlichen Helfer beschäftigen:
Der Pfad wird so ausgelesen und dann einfach mit dem Dateinamen verknüpft:
- Function Pfad_auslesen
sAktURL = oDoc.url
n = 1
do until instr(n, sAktUrl, "/") = 0
n = instr(n, sAktUrl, "/") +1
loop
sPfad = left(sAktURL, n-1)
Pfad_auslesen = sPfad
End Function
Ist aber nicht von mir, weiß aber nicht mehr, wo ich das gefunden habe...
Trotzdem Danke
J. Kleis
Hallo,
sorry dass ich so lange nicht geantwortet habe, aber hatte keine Zeit, mich dem Problem zu stellen.
Beim heutigen Fehlersuchen habe ich das Skript wieder ans laufen bekommen. Ich würde jetzt auch sofort auf einen Fehler von mir tippen, wenn das Skript nicht nach dem Update ohne Änderung gestreikt hätte. Keine Ahnung aber es läuft und mehr will ich auch nicht. Zu der Frage und damit es nicht aussieht als wäre ich zu blöd zum nachprüfen und wolle nur die freundlichen Helfer beschäftigen:
Der Pfad wird so ausgelesen und dann einfach mit dem Dateinamen verknüpft:
[list]Function Pfad_auslesen
sAktURL = oDoc.url
n = 1
do until instr(n, sAktUrl, "/") = 0
n = instr(n, sAktUrl, "/") +1
loop
sPfad = left(sAktURL, n-1)
Pfad_auslesen = sPfad
End Function[/list]
Ist aber nicht von mir, weiß aber nicht mehr, wo ich das gefunden habe...
Trotzdem Danke
J. Kleis