====== Pfad zerlegen ======
\\ __JScript__:\\ Diese Version benutzt ein fso-Object. ([[/FileSystemObject|File-System-Object]]). Dies muss vorher schon im Script erzeugt worden sein.\\
// teilt übergebenen Pfad auf (entnommen aus mfdl.js)
function SplitPath(path)
{
var result = new Object();
result.dir = fso.GetParentFolderName(path) + "\\";
result.file =fso.GetBaseName(path);
result.ext = "." + fso.GetExtensionName(path);
return result;
}
Var sp = SplitPath(Pfad);
Pfad_ohne_Dateiname = sp.dir;
Pfad_mit_Dateiname_ohne_Endung = sp.dir + sp.file;
Dateiname_ohne_Endung = sp.file;
Dateiname = sp.file + sp.ext;
Nur_Dateiendung = sp.ext;
\\ __VBScript:__\\ Diese Version nutzt allein String-Operationen:\\
Pfad_ohne_Dateiname = Left(Pfad, InStrRev(Pfad, "\",-1, 1))
Pfad_mit_Dateiname_ohne_Endung = Left(Pfad,InStrRev(Pfad,".",-1,1)-1)
Dateiname_ohne_Endung = Mid(pfad,InStrRev(Pfad,"\",-1, 1)+1,InStrRev(Pfad,".",-1,1)-InStrRev(Pfad,"\",-1,1)-1)
Dateiname = Right(Pfad, Len (Pfad) - InStrRev(Pfad, "\",-1, 1))
Nur_Dateiendung = Right(Pfad, Len (Pfad) - InStrRev(Pfad, ".",-1, 1))
\\ Aber natürlich kann auch unter VBS das [[/FileSystemObject|File-System-Object]] genutzt werden:\\ \\
Pfad_ohne_Dateiname = fso.GetParentFolderName(Pfad) & "\"
Pfad_mit_Dateiname_ohne_Endung = fso.GetParentFolderName(Pfad) & "\" & fso.GetBaseName(Pfad)
Dateiname_ohne_Endung = fso.GetBaseName(Pfad)
Dateiname = fso.GetFileName(Pfad)
Nur_Dateiendung = fso.GetExtensionName(Pfad)