VISTA 名無しフォルダが消せません



 ◇-?VISTA 名無しフォルダが消せません-初心者-08/24-20:33(216)-No.458667
   ┗?~Re:VISTA 名無しフォルダが消せ...-電気羊-08/24-21:15(215)-No.458669
     ┗?~!Re:VISTA 名無しフォルダが消...-初心者-08/24-21:59(215)-No.458673
       ┗?~!~Re:VISTA 名無しフォルダが消...-電気羊-08/24-22:31(214)-No.458677
         ┗?~!~【解決】Re:VISTA 名無しフォ...-初心者-08/25-11:08(201)-No.458720

▲このページのトップに戻る
458667VISTA 名無しフォルダが消せません初心者 2008/08/24-20:33

メーカー名: 工人舎
OS名:WindowsVista
パソコン名:sc3wp06ga
--
OSはVISTAで、エクスプローラーからミュージックを開いて使用しています。
ミュージックのフォルダにはいくつもバンド単位でフォルダがあり、CDを複数枚発売している場合は下層にアルバムのフォルダが入っています。

手違いから、バンド単位のある一つのフォルダをフォルダ名空欄で保存してしまいました。

名前の変更が出来なくなっただけではなくフォルダ自体の削除も出来なくなってしまいました。
フォルダを右クリックして「削除」をクリックしても何も起きません。
また、名前の変更をクリックして文字入力までは可能なのですが、エンターを押すと名前変更は完了せず空欄フォルダで残ってしまいます。

名無しフォルダにしてしまった後、再起動して変化を見ましたが状況は変りません。

別な質問でフォルダ管理者の設定があったので試しましたが駄目でした。


申し訳御座いませんが、何方様か解決方法をご存知でしたら教えて頂けませんでしょうか。
宜しくお願いします。

▲このページのトップに戻る
458669Re:VISTA 名無しフォルダが消せません電気羊 2008/08/24-21:15

記事番号458667へのコメント
これはVistaのバグのひとつだと思われます。
おそらく初心者さんはフォルダ名を「全角空白」に変更してしまったのではないでしょうか?こうなると名前の変更も削除もできなくなってしまいます(´・ω・`)

解決法はコマンドスクリプトから実行する方法があるのですが、私がやってみてうまくいかなかったのでもうひとつの方法を。

こちらのブログ記事で紹介している方法をオススメします。
http://lunasite.blog79.fc2.com/blog-entry-37.html

ここの記事のレス部分にあるものを転用させてもらいますが、

----------
Set sl = CreateObject("Shell.Application")
Set fs = CreateObject("Scripting.FileSystemObject")
Set rfp = sl.BrowseForFolder(0, _
"【Vista専用-強制リネーム】" _
& Chr(10) & "「ALT+0160で作成したフォルダ」 " _
& "または 「名前が全角空白のフォルダ」 " _
& "の親フォルダを選択してください。", &H1)
If rfp Is Nothing Then
Msgbox "キャンセルされました。"
WScript.Quit
End If
If Not rfp.ParentFolder Is Nothing Then
p = rfp.Items.Item.Path
Else
Set ws = CreateObject("WScript.Shell")
p = ws.SpecialFolders("DeskTop")
Set ws = Nothing
End If
Set rf = fs.GetFolder(p)
For Each ff In rf.SubFolders
If Len(ff.Name) = 1 Then
if Asc(ff.Name) = 63 or Asc(ff.Name) = -32448 Then
Select Case Asc(ff.Name)
Case 63
ff.Name = "(ALT0160)"
Msgbox "ALT0160フォルダをリネームしました。"
Flag=True
Case -32448
ff.Name = "(全角の空白)"
Msgbox "全角空白フォルダをリネームしました。"
Flag=True
End Select
end if
end if
Next
if Not Flag Then
Msgbox "「" & rf.Path & "」 内に、" _
& "対象フォルダが見つかりませんでした。"
End if
Set ff = Nothing
Set rf = Nothing
Set rfp = Nothing
Set fs = Nothing
Set sl = Nothing
-----------

上記、点線の内部(点線は要りません)をテキストにコピペして「好きな名前.vbs」で適当な場所に保存してください。
改めてテキストを閉じて保存したものを実行、空白の消せないフォルダがあるフォルダ(初心者さんの場合はマイミュージックでしょうか?)を指定すれば勝手にリネームしてくれるので、その状態からフォルダ名を変える事ができると思いますよヾ(*´∀`)ノ


いちいちマイミュージックまで変更しに行くのが面倒という場合は、

ff.Name = "(全角の空白)"

の(全角の空白)というのが最初にリネームされる名前なのでここに該当のバンド名さんを自分で書いちゃえばわざわざフォルダ名を変更しに行く必要はありません(`・ω・´)

▲このページのトップに戻る
458673Re:VISTA 名無しフォルダが消せません初心者 2008/08/24-21:59

記事番号458669へのコメント
電気羊様

早速詳しい方法有難う御座います!!

早速試させて頂いたのですが、対象フォルダが見つかりませんでした とエラーが出てしまいました・・。

HDDが小さいのでC:ドライブではなくD:ドライブにミュージックフォルダを作成(マイミュージックフォルダをコピーして移動したか記憶が薄いです・・・ただフォルダ名は「マイ」はなく「ミュージック」になってます)していました。
教えて頂いたvbsをデスクトップに張り付けて実行したのが失敗の原因かと思い、D:にvbsを置き実行しても一緒でした。

ちなみにブログにあるvbsは実行まで至らず何も起きませんでした。
(vbsも無知な為、もしかしたら記述の部分だけでは何も起きなくて当たり前だったのでしょうか?)


D:内のフォルダが原因なのでしょうか。

こちらの不手際でご迷惑お掛けして申し訳御座いません。

▲このページのトップに戻る
458677Re:VISTA 名無しフォルダが消せません電気羊 2008/08/24-22:31

記事番号458673へのコメント
むむ、.vbs自体が起動しないのでしょうか?

>(vbsも無知な為、もしかしたら記述の部分だけでは何も起きなくて当たり前だったのでしょうか?)
そんな事ないですよ、テキストに内容をコピペして保存、その際に名前のあとに「.vbs」を記述すればOKです。
プログラム(.vbs)の置く場所については別ドライブのものをリネームする場合でもデスクトップでもどこでも大丈夫です。また、これは単純に「強制リネーム」だけしか行わないので選択するフォルダ名もあまり関係ないです。
コンピューターをクリックすれば他のHDDやFDD一覧が出てきますので、そこからポンポン押して目的のフォルダを目指していけばOKです。

もし上手く作成できていれば青いトイレットペーパーみたいな絵のついたアイコンが作成されると思うのですが…テキストを.vbsで保存するとどんなファイルになっちゃいますか?
そのファイルのプロパティで「VBScript Script ファイル (.vbs)」というファイル種類になっていればOKなのですが。。

それと勘違いしやすいと思いますが、「空白フォルダ」自体を選択してもダメです。あくまで「空白フォルダのあるフォルダ」を選択してください(対象フォルダが見つからない〜というエラー原因はこっちの方が有力かも)。

▲このページのトップに戻る
458720Re:VISTA 名無しフォルダが消せません初心者 2008/08/25-11:08

記事番号458677へのコメント
電気羊様

解決致しました!!
ありがとうございました!!

「空白のフォルダー」自体を選択していました。
ミュージックフォルダをターゲットにして無事フォルダ名を元に戻すことが出来ました。


何やらVISTAは色々ありそうですね・・・
他に何もない事を願いたいです。

本当にお手数お掛けしました。
ありがとう御座います。

A1.本ページは参考になりましたか? 又はアドバイスがありますか?
解決 参考になった 参考にならなかった アドバイスする

A2.何度目の訪問ですか?
初めて来た   数度目(2〜4) 5回以上来ている   管理人:

A3.何か一言どうぞ(アドレスは書くことができません)

A4.アドレスがあればどうぞ(1つまで)


↑↑↑↑よろしければ押してください↑↑↑↑

何か一言(本ページで参考になったならないを含めて残してあります)
◎:解決 ○:参考になった ×:参考にならなかった !:アドバイスあり

参考回数投稿日時何か一言
初めて2009/11/30/(月) 00:15:04前から消えないフォルダがあり、困っていました。本当に助かりました、ありがとうございました。 Mozilla/WinVista
初めて2011/02/21/(月) 01:57:29有難うございます解決できました。 MSIE8/WinVista
初めて2011/03/01/(火) 18:05:12素晴らしい!!また利用したいです(^^)/ Mozilla/WinVista
初めて2011/04/19/(火) 00:07:39同症状で困っていたのですが、他のページを見てもいまいち判らなかったのですが、ここで詳しく説明されていたので無事に消せました。助かりました。 MSIE8/WinVista
初めて2011/07/20/(水) 21:39:41ここに載っているコードを使っても1行目にエラーがあると言われて出来なかったが、リンク先の本家のコードを使ったら出来ました。何ででしょうね? Mozilla/WinVista
初めて2011/12/03/(土) 12:48:29消えました〜。ただ、同じ「ミュージック」内にもう一つ空白を名前に使ったフォルダを作ってしまっていたのですが、そちらの方は『該当するファイルが見つかりませんでした』という旨のメッセージが現れ、消す事が出来ませんでした。しかし、あれだけ苛立っていたフォルダが片方綺麗に消えた時は本当に嬉しかったです!ありがとうございました!! MSIE8/WinVista
初めて2012/04/24/(火) 08:51:50素晴らしいです。助かりました。ありがとうございました。 MSIE7/WinVista