Function BFF(title, flag, dir)
On Error Resume Next
Dim oShell, oItem, oStr
Set oShell = WScript.CreateObject("Shell.Application")
Set oItem = oShell.BrowseForFolder(&H0, title, flag, dir)
oStr = oItem.Title
If Err <> 0 Then
Set oShell = Nothing
Set oItem = Nothing
Exit Function
End If
If InStr(oStr, ":") Then
BFF = mid(oStr,InStr(oStr, ":")-1, 2)
Else
Select Case oStr
Case "桌面"
BFF = WS.SpecialFolders("Desktop")
Case "我的文档"
BFF = WS.SpecialFolders("MyDocuments")
Case "我的电脑"
MsgBox "无效目录！",64,"提示":WScript.Quit
Case "网上邻居"
MsgBox "无效目录！",64,"提示":WScript.Quit
Case Else
BFF = oItem.ParentFolder.ParseName(oItem.Title).Path
End Select
End If
Set oShell = Nothing
Set oItem = Nothing
If Right(BFF,1)<> "" Then
BFF = BFF & ""
End If
On Error GoTo 0
End Function
