Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


22771 / 76732 ←次へ | 前へ→

【59338】Re:KILL関数って不安定なのでしょうか?
回答  neptune  - 08/12/7(日) 9:41 -

引用なし
パスワード
   ▼大目玉 さん:

サンプルです。動作確認はしてませんので動作保障はないです。

>必要なのは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

よければ参考にして適当に改造して下さい。
1 hits

【59327】KILL関数って不安定なのでしょうか? 大目玉 08/12/6(土) 15:17 質問
【59328】Re:KILL関数って不安定なのでしょうか? neptune 08/12/6(土) 15:43 回答
【59334】Re:KILL関数って不安定なのでしょうか? 大目玉 08/12/6(土) 22:31 発言
【59335】Re:KILL関数って不安定なのでしょうか? neptune 08/12/6(土) 23:09 発言
【59337】Re:KILL関数って不安定なのでしょうか? 大目玉 08/12/7(日) 1:09 お礼
【59338】Re:KILL関数って不安定なのでしょうか? neptune 08/12/7(日) 9:41 回答

22771 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free