Refresh後にファイル選択の状態にするには？ (ID:122826)

名前

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

本文 通ってみた様 犬ひろし様 有難う御座いました。 FileListBoxのKeyDownイベントにてDeleteキー押下時に ファイル削除機能を作成しておりました。 犬ひろし様のコードにて確認が取れましたので解決とさせて頂きます。 以下コードです。 有難う御座いました。 Private Sub File1_KeyDown(KeyCode As Integer, Shift As Integer) On Error GoTo ERRPOINT Dim YesNo As String Dim c As Long 'ファイル削除機能「Deleteキー押下時」 If KeyCode = vbKeyDelete Then YesNo = MsgBox("削除しますか？", vbYesNo + vbQuestion + vbDefaultButton2) If YesNo = vbYes Then If File1.FileName = "" Then goto ERRPOINT Else Kill (File1.Path & "\" & File.FileName) 'リフレッシュ File1.Refresh 'ファイル選択 For c = 0 To File1.ListCount - 1 If File1.List(c) <> "" Then File1.Selected(c) = True Next c End If End If End If ENDPOINT: Exit Sub ERRPOINT: MsgBox "ファイル削除が出来ませんでした。", vbCritical, "エラーメッセージ" End Sub