Pfad zerlegen


JScript:
Diese Version benutzt ein fso-Object. (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 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)