リストボックスに表示されたファイルを削除したい

いつもお世話になっております
下記コードでおしえてくれませんでしょうか

リストボックスに表示されたファイルを
削除する方法
下記のコードはリストボックスに表示された
のだけ削除になります。

.List(.ListCount - 1, 1) = f.Pathにファイルが表示されます。
わかる方おしえてくれませんでしょうか

Private Sub CommandButton2_Click()
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
.RemoveItem (i)
End If
Next
End With
End Sub


Private Sub CommandButton1_Click()
Dim fso As Object
Dim pathN As String
Set fso = CreateObject("Scripting.FileSystemObject")
Dim f

With ListBox1
.Clear
.ColumnCount = 2
.ColumnWidths = "250;15"
.Font.Size = 14
.MultiSelect = fmMultiSelectSingle

For Each f In fso.getfolder("C:\Users\デスクトップ\aa\").files

.AddItem ""
.List(.ListCount - 1, 0) = f.Name
.List(.ListCount - 1, 1) = f.Path
Next
End With

End Sub

No.1 回答者： fujillin 回答日時： 2023/04/19 12:54

こんにちは

ファイルの実態も駆除したいということでしょうか？

＞ListBox1.RemoveItem (i)
では、リストから指定行が削除されます。
（リスト上の表示が削除されるだけ）

ファイルの実態を削除なさりたい場合には、KILLステートメント あるいは FileSystemObject のFile.Deleteメソッド等をご利用下さい。
https://learn.microsoft.com/ja-jp/office/vba/lan …
https://learn.microsoft.com/ja-jp/office/vba/lan …

この回答へのお礼

ありがとうございました。

お礼日時：2023/04/19 13:27