Pfad zerlegen


JScript:
Diese Version benutzt ein fso-Object. (File-System-Object). Dies muss vorher schon im Script erzeugt worden sein.

  1.   //  teilt übergebenen Pfad auf (entnommen aus mfdl.js)
  2.   function SplitPath(path)
  3.   {
  4.    var    result = new Object();
  5.    result.dir = fso.GetParentFolderName(path) + "\\";
  6.    result.file =fso.GetBaseName(path);
  7.    result.ext = "." + fso.GetExtensionName(path);
  8.    return result;
  9.   }
  10.  
  11.   Var sp = SplitPath(Pfad);
  12.   Pfad_ohne_Dateiname            = sp.dir;
  13.   Pfad_mit_Dateiname_ohne_Endung = sp.dir + sp.file;
  14.   Dateiname_ohne_Endung          = sp.file;
  15.   Dateiname                      = sp.file + sp.ext;
  16.   Nur_Dateiendung                = sp.ext;


VBScript:
Diese Version nutzt allein String-Operationen:

  1.   Pfad_ohne_Dateiname = Left(Pfad, InStrRev(Pfad, "\",-1, 1))
  2.   Pfad_mit_Dateiname_ohne_Endung = Left(Pfad,InStrRev(Pfad,".",-1,1)-1)
  3.   Dateiname_ohne_Endung = Mid(pfad,InStrRev(Pfad,"\",-1, 1)+1,InStrRev(Pfad,".",-1,1)-InStrRev(Pfad,"\",-1,1)-1)
  4.   Dateiname = Right(Pfad, Len (Pfad) - InStrRev(Pfad, "\",-1, 1))
  5.   Nur_Dateiendung = Right(Pfad, Len (Pfad) - InStrRev(Pfad, ".",-1, 1))


Aber natürlich kann auch unter VBS das File-System-Object genutzt werden:

  1.   Pfad_ohne_Dateiname = fso.GetParentFolderName(Pfad) & "\"
  2.   Pfad_mit_Dateiname_ohne_Endung = fso.GetParentFolderName(Pfad) & "\" & fso.GetBaseName(Pfad)
  3.   Dateiname_ohne_Endung = fso.GetBaseName(Pfad)
  4.   Dateiname = fso.GetFileName(Pfad)
  5.   Nur_Dateiendung = fso.GetExtensionName(Pfad)