Hallo,
Wiso funktioniert diese angaben nicht?:
pfad = gStrZielpfad & "\" & Dir(gStrZielpfad & "\" & Selection.Characters(1) & "*", vbDirectory)
pfad = pfad & "\" & Dir(pfad & "\" & Selection.Characters(1) & Selection.Characters(2) & Selection.Characters(3) & "*", vbDirectory) & "\"
ChDir (pfad)
htmlpfad = pfad & "index.shtml"
e = 1 'Den auf die Mittelgruppennummer folgenden Unterstrich überspringen
hat jemand eine Idee?
Gruß Begüm