|
Set
MyExplorer = Application.ActiveExplorer
★現在のExplorerオブジェクトを取得
Set MySelection = MyExplorer.Selection
★現在選択しているアイテムを取得
intX = MySelection.Count
★現在選択しているアイテム数を変数に格納
For i = intX to 1 Step -1
MySelection.item(i).Delete
Next
★ループ処理で選択アイテム数分、アイテムを削除する
（注）Itemsコレクション内のItemのインデックス番号はアイテム数に応じて順に付けられるため、インデックス番号1を削除するとこれまでのインデックス番号2→1に繰り上がります。そのため、昇順に削除すると全削除できなくなるので、末尾から削除します。
★Selection.item(インデックス番号）で選択中の各アイテムを取得できます。 |
