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. CREATEOLEOBJ
  2. Shell.NameSpace
  3. Shell.Folder.ParseName
  4. Shell.FolderItem.InvokeVerb

指定したファイルを開く

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. CREATEOLEOBJ
  2. Shell.NameSpace
  3. FSO.FileExists
  4. Shell.Folder.ParseName
  5. Shell.FolderItem.InvokeVerb

右クリックメニュー取得

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. Shell.NameSpace
  2. Shell.Folder.ParseName
  3. Shell.FolderItem.Verbs
  4. Shell.FolderItemsVerbs
  5. Shell.FolderItemsVerbs.Count
  6. Shell.FolderItemsVerbs.Item
  7. Shell.FolderItemsVerb.Name
結果
開く(&O)
印刷(&P)
編集(&E)

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

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

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