VBS教程：方法-GetParentFolderName 方法

GetParentFolderName 方法

返回字符串，該字符串包含指定的路徑中最后一個(gè)文件或文件夾的父文件夾。

object.GetParentFolderName(path)

參數(shù)

object

必選項(xiàng)。應(yīng)為 FileSystemObject 的名稱。

path

必選項(xiàng)。指定路徑，要返回文件或文件夾的父文件夾名。

說(shuō)明

如果 path 參數(shù)指定的文件或文件夾無(wú)父文件夾，則 GetParentFolderName 方法返回零長(zhǎng)度字符串 ("")。

下面例子舉例說(shuō)明如何使用 GetParentFolderName 方法：

Function GetTheParent(DriveSpec) 
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
GetTheParent = fso.GetParentFolderName(Drivespec)
End Function

注意   GetParentFolderName 方法只能對(duì)提供 path 的字符串起作用。它不能試圖分析一個(gè)路徑，也不能檢查指定路徑是否存在。

更詳細(xì)的可以參考這篇文章：https://www.jb51.net/shouce/vbs/vsmthGetParentFolderName.htm

給大家分享一個(gè)

VBS腳本遞歸創(chuàng)建多級(jí)(分級(jí))目錄文件夾

CreateFolders "d:\ftptest\1\2\3\4\5" 

Function CreateFolders(path)
 Set fso = CreateObject("scripting.filesystemobject")
 CreateFolderEx fso,path
 set fso = Nothing
End Function

Function CreateFolderEx(fso,path)
 If fso.FolderExists(path) Then 
 Exit Function
 End If
 If Not fso.FolderExists(fso.GetParentFolderName(path)) Then
 CreateFolderEx fso,fso.GetParentFolderName(path)
 End If
 fso.CreateFolder(path)
End Function

主要是使用了遞歸調(diào)用的原理實(shí)現(xiàn)逐步目錄創(chuàng)建。