VBScript

Demonstrate Directory Path Functions

Demonstrates the path functions GetDirectoryName, GetExtension, GetFileName, and GetFileNameWithoutExtension. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

set fac = CreateObject("Chilkat.FileAccess")

' Note: Chilkat accepts either forward slash or backslash chars as directory separators..
outFile.WriteLine(fac.GetDirectoryName("/MyDir/MySubDir/myfile.ext"))
outFile.WriteLine(fac.GetDirectoryName("/MyDir/MySubDir"))
outFile.WriteLine(fac.GetDirectoryName("/MyDir/"))
outFile.WriteLine(fac.GetDirectoryName("/MyDir"))
outFile.WriteLine(fac.GetDirectoryName("/"))

outFile.WriteLine(fac.GetExtension("C:/mydir.old/myfile.ext"))
outFile.WriteLine(fac.GetExtension("C:/mydir.old/"))

outFile.WriteLine(fac.GetFileName("C:/mydir/myfile.ext"))
outFile.WriteLine(fac.GetFileName("C:/mydir/"))

outFile.WriteLine(fac.GetFileNameWithoutExtension("C:/mydir/myfile.ext"))
outFile.WriteLine(fac.GetFileNameWithoutExtension("C:/mydir/"))

outFile.WriteLine("---")

outFile.Close