Excel VBA質問箱 IV

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

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


13331 / 13644 ツリー ←次へ | 前へ→

【5889】「Thumbs.db」の削除 poo 03/6/6(金) 13:18 質問
【5894】Re:「Thumbs.db」の削除 ichinose 03/6/6(金) 20:12 回答

【5889】「Thumbs.db」の削除
質問  poo  - 03/6/6(金) 13:18 -

引用なし
パスワード
   いくつかの画像ファイルが入っているフォルダを丸ごと削除したいのですが、
エクスプローラで画像を縮小表示したときにできる「Thumbs.db」が
あると、KillやRmdirステートメントでは削除できないようです。

「Thumbs.db」含めて削除できる、なにかいい方法はないでしょうか。

ちなみに現状はKillですべてのファイルを削除してから
Rmdirで空になったフォルダを削除しています。
できればこれも一撃で行いたいのですが。。

【5894】Re:「Thumbs.db」の削除
回答  ichinose  - 03/6/6(金) 20:12 -

引用なし
パスワード
   ▼poo さん:
こんばんは。

>いくつかの画像ファイルが入っているフォルダを丸ごと削除したいのですが、
>エクスプローラで画像を縮小表示したときにできる「Thumbs.db」が
>あると、KillやRmdirステートメントでは削除できないようです。
>
>「Thumbs.db」含めて削除できる、なにかいい方法はないでしょうか。
>
>ちなみに現状はKillですべてのファイルを削除してから
>Rmdirで空になったフォルダを削除しています。
>できればこれも一撃で行いたいのですが。。
Fsoを使用すると、フォルダ内にファイルがあっても削除してくれます。

'==================================
Sub test()
  Dim sFolderName2 As String
  Dim del_result As Boolean
  sFolderName2 = "D:\My Documents\削除test"
   ' ↑削除したいフォルダ名を入れる
  del_result = del_folder(sFolderName2)
  MsgBox del_result
End Sub
'===================================================
Function del_folder(foldnm As String) As Boolean
  Set fs = CreateObject("Scripting.FileSystemObject")
  On Error Resume Next
  del_folder = False
  With fs
   .DeleteFolder foldnm, True
   End With
  If Err.Number <> 0 Then
   MsgBox Error$(Err.Number)
  Else
   MsgBox "フォルダーごと削除しまた"
   del_folder = True
   End If
  On Error GoTo 0
End Function

私もこれがしたいがために「Fso」を探しました。

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