|
Hallo VBA-Experten.
Ich hab zu diesem Thema schon intensiv gegoogelt, aber alle bisherigen Code-Snippets waren für mich leider unbrauchbar...
Folgende Situation:
Ein Ordner mit einigen Dateien, unter Anderem einer XML-Konfigurationsdatei mit dem Namen "Musterprojekt.ipj", kopiere ich momentan über VBA in ein anderes Verzeichnis und benenne dabei einige Dateien um - das funktioniert alles auch perfekt!
In der XML-Datei sind zwei Pfade relativ angegeben:
Auszug aus der Datei "Musterprojekt.ipj":
............
............
<ActiveProteinLibrary>0</ActiveProteinLibrary>
</ProteinLibrary>
<ProteinLibrary>
<Path>.\Bibliothek\Stile (HTL)\Materials\HTBLA-Kaindorf-Materialbibliothek.adsklib</Path>
<ProteinLibraryType>4</ProteinLibraryType>
<ActiveProteinLibrary>1</ActiveProteinLibrary>
............
............
<FolderOptions>
<DesignDataFolder>
<Path>.\Bibliothek\Stile (HTL)</Path>
<UseStylesFolder>Yes</UseStylesFolder>
</DesignDataFolder>
<TemplatesFolder>
............
............
(das gesamte file hat 113 Zeilen, aber das tut hoffentlich nichts zur Sache...)
Die zwei relativen Pfade (rot markiert) würde ich gerne als absolute Pfade definieren.
Konkret statt
.\Bibliothek\Stile (HTL)
hätte ich gerne z.B.
C:\tmp\NeuesProjekt\Bibliothek\Stile (HTL)
Den absoluten Pfad würde ich mir in weiter Folge aus Zeichenketten (Datenformat String) zusammenbasteln - so was wie "Ordner & "\" & Projektname.text" - aber ich will euch nicht mit Details belasten ??
Der kurzen Rede kurzer Sinn:
Ich hätte mir ein paar VBA-Codezeilen vorgestellt, die automatisch im Hintergrund (ohne User-Eingriff) im XML-file die beiden Zeichenketten vertauschen (ähnlich "suchen/ersetzen") und die Original-Datei überschreiben!
Danke im Voraus für eure Hilfe!
LG und Merry Christmas
Reinhard
|