|
▼大目玉 さん:
サンプルです。動作確認はしてませんので動作保障はないです。
>必要なのは5行目のB列からはじまるファイルパスのファイルを削除することです。
>ファイルパスは5つのときもあれば、50や100つの時もあります。
>5 つのときは当然にそれ以下のせるは空欄になります
だけに着目して書いてます。
ファイルパスは正確なフルパスである前提です。
ワイルドカードは考慮してません。(どういう結果がほしいか不明なので考慮しようがない)
Sub t()
Dim i As Long
Dim ret As Long
With Worksheets("Sheet1")
On Error Resume Next
i = 5
Do Until .Cells(i, 2).Text = ""
Kill .Cells(i, 2).Text
If Err.Number <> 0 Then
ret = MsgBox(Err.Number & ": " & Err.Description & vbCrLf _
& .Cells(i, 2).Text & "の削除が正常に行われませんでした。処理を続けますか?", _
vbYesNo Or vbQuestion, "ファイル削除エラー")
If ret = vbNo Then Exit Do
Err.Clear
End If
i = i + 1
Loop
On Error GoTo 0
End With
End Sub
よければ参考にして適当に改造して下さい。
|
|