Kitte

怎么得到文件的目录名，有这样的函数吗？  
比如，我c:\aa\test.txt  
我想用一个函数取去目录c:\aa

流浪天崖

GetParentFolderName  方法  

描述  
返回字符串，该字符串包含指定的路径中最后一个文件或文件夹的父文件夹。  
语法  
object.GetParentFolderName(path)   
GetParentFolderName  方法的语法有以下部分：   

部分  描述   
object  必选。应为  FileSystemObject  的名称。   
path  必选。指定路径，要返回文件或文件夹的父文件夹名。   




<SCRIPT  LANGUAGE="VBScript">  
Function  GetTheParent(DriveSpec)   
           Dim  fso  
           Set  fso  =  CreateObject("Scripting.FileSystemObject")  
           GetTheParent  =  fso.GetParentFolderName(Drivespec)  
           Set  fso  =  Nothing  
End  Function  
MsgBox  GetTheParent("C:\Program  Files\Internet  Explorer\IEXPLORE.EXE")  
</SCRIPT>