- 帖子
- 258
- 主題
- 77
- 精華
- 0
- 積分
- 385
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2010-8-8
- 最後登錄
- 2021-1-25
|
諸位大大敬請賜教
Option Explicit
Dim f1,fbn
'f1 = App.EXEName
f1="莊敬自強.vbs"
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(f1)
fbn= fso.GetBaseName(f)
dim n
n = fso.GetParentFolderName(f.path)
msgbox n
如何可取得再上一層的路徑?如fso.GetGrandParentFolderName(f.path)
敬請協助指導,謝謝 |
|
發表於 2017-11-26 09:32
| 
