Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30752 / 76732

←次へ　｜　前へ→


	【51243】Re:フォルダの削除（補足）

りん

- 07/9/5(水) 18:42 -


	引用なし

	パスワード

鈴さん、こんばんわ。

>こちらで"\"をとって実行してみたのですが
>結果は同じで実行時エラー75になります。

FileSystemObjectを使ってもだめですか？

Sub test()
　　''C:\Work\フォルダを削除します
　　Dim FSO As Object, a As String
　　'削除するフォルダ
　　a = "C:\編集中\20070904"
　　'
　　Set FSO = CreateObject("Scripting.FileSystemObject")
　　'
　　If FSO.FolderExists(a) Then
　　　 MsgBox "DEL", vbInformation
　　　 FSO.DeleteFolder a
　　Else
　　　 MsgBox a & " がみつかりません", vbExclamation
　　End If
　　'
　　Set FSO = Nothing
End Sub

これでもダメでしたら、他の部分に原因があるとおもうので、差しさわりのない範囲でコードを見てみたいです。

0 hits

▼

【51226】フォルダの削除 鈴 07/9/4(火) 20:13