パソコン困りごと掲示板

 ◇-?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は色々ありそうですね・・・
他に何もない事を願いたいです。

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