最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

VBS教程:方法-GetParentFolderName 方法

 更新時間:2006年11月16日 00:00:00   投稿:mdxy-dxy  
vbs GetParentFolderName用來獲取指定的路徑中最后一個文件或文件夾的父文件夾

GetParentFolderName 方法

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

object.GetParentFolderName(path)

參數(shù)

object

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

path

必選項。指定路徑,要返回文件或文件夾的父文件夾名。

說明

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

下面例子舉例說明如何使用 GetParentFolderName 方法:

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

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

更詳細的可以參考這篇文章:http://www.fzitv.net/shouce/vbs/vsmthGetParentFolderName.htm

給大家分享一個

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

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)用的原理實現(xiàn)逐步目錄創(chuàng)建。

相關(guān)文章

最新評論

容城县| 敦煌市| 浦城县| 谷城县| 盘山县| 太和县| 大同县| 高邑县| 德昌县| 临湘市| 安福县| 新竹县| 米脂县| 静乐县| 沈丘县| 克东县| 梁河县| 隆尧县| 全州县| 漠河县| 耒阳市| 昌黎县| 太和县| 天长市| 湖州市| 新安县| 攀枝花市| 清水河县| 乌恰县| 广平县| 昭苏县| 屯昌县| 林芝县| 罗定市| 衡南县| 东源县| 临武县| 独山县| 深圳市| 潼南县| 徐汇区|