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)