Function ParentDir(strFileName) 'As String
'Returns the name of the parent directory. For example,
'"C:\www\siteinfo\test.txt" would return "siteinfo".
Dim fs 'As Scripting.FileSystemObject
Dim strParentDir 'As String
	Set fs=CreateObject("Scripting.FileSystemObject")
	strParentDir = fs.GetParentFolderName(strFileName)
	strParentDir = Mid(strParentDir, InstrRev(strParentDir, "\") + 1)
	ParentDir = strParentDir
End Function