エクスプローラのコピー、切り取りを判定したい。 (ID:108139)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

エクスプローラあるいはInternet Explorer等を起動して、
そこにフォルダを表示させてください。例えば、こんな感じ。

Private Sub Command1_Click()
    Dim W       As Object   'As InternetExplorer
    Dim oFView  As Object   'As ShellFolderView
    Dim oFItems As Object   'As FolderItems
    Dim oFItem  As Object   'As FolderItem

Set W = CreateObject("InternetExplorer.Application")
    W.Navigate2 "C:\Program Files\"
    W.Visible = True    '表示/非表示の切り替え
    
    Do
       DoEvents
    Loop Until W.busy = 4
    
    Set oFView = W.Document
    Set oFItems = oFView.SelectedItems
    Set oFItem = oFView.FocusedItem
    Debug.Print "oFView : " & TypeName(oFView)
    Debug.Print "oFItems: " & TypeName(oFItems)
    Debug.Print "oFItem : " & TypeName(oFItem)
    
    Debug.Print "このフォルダの項目数", oFView.Folder.Items().Count
    Debug.Print "現在選択されている項目数", oFItems.Count
    If oFItem Is Nothing Then
        Debug.Print "フォーカスがありません。"
    Else
        Debug.Print oFItem.Name
    End If

Set oFItem = Nothing
    Set oFItems = Nothing
    Set oFView = Nothing

W.Quit  '終了
    Set F = Nothing
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る