ParseName

指定されたアイテムのFolderItemオブジェクトを作成し返します。

存在しなければNOTHINGを返します。

構文
FolderItem = Folder.ParseName( bName )
引数
bName(BSTR必須
項目の名前を指定する文字列。
戻値
FolderItemオブジェクト

CONST ssfDesktop = 0

DIM Shell = CREATEOLEOBJ(“Shell.Application”)
DIM Folder = Shell.NameSpace(ssfDesktop)
DIM FolderItem = Folder.ParseName(“a.txt”)

プログラム実行例

指定したファイルを削除する確認メッセージを表示

CONST ssfDesktop = 0

DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM Folder = Shell.NameSpace(ssfDesktop)
DIM FolderItem = Folder.ParseName("D:\Desktop\sample.txt")

FolderItem.InvokeVerb("delete")
  1. script.function.CREATEOLEOBJ(3)
  2. com.Shell.NameSpace(4)
  3. com.Shell.Folder.ParseName(5)
  4. com.Shell.FolderItem.InvokeVerb(7)

指定したファイルを開く

CONST ssfDesktop = 0

DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM Folder = Shell.NameSpace(ssfDesktop)

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM path = "D:\Desktop\sample.txt"
IF FSO.FileExists(path) = FALSE THEN EXIT

DIM FolderItem = Folder.ParseName(path)
FolderItem.InvokeVerb()
  1. script.function.CREATEOLEOBJ(3,6)
  2. com.Shell.NameSpace(4)
  3. com.FSO.FileExists(8)
  4. com.Shell.Folder.ParseName(10)
  5. com.Shell.FolderItem.InvokeVerb(11)

右クリックメニュー取得

CONST ssfDesktop = 0

DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM Folder = Shell.NameSpace(ssfDesktop)
DIM FolderItem = Folder.ParseName("a.txt")

DIM FolderItemVerbs = FolderItem.Verbs

FOR i = 0 TO FolderItemVerbs.Count - 1
	PRINT FolderItemVerbs.Item(i).Name
NEXT
  1. com.Shell.NameSpace(4)
  2. com.Shell.Folder.ParseName(5)
  3. com.Shell.FolderItem.Verbs(7)
結果
開く(&O)
印刷(&P)
編集(&E)

ALZipで圧縮(&L)
管理者権限で圧縮(&Y)
"a.zip" で圧縮(&Q)
コピー(&C)
削除(&D)
共有​​

以前のバージョンの復元(&V)

切り取り(&T)
コピー(&C)
ショートカットの作成(&S)
削除(&D)
名前の変更(&M)
プロパティ(&R)