よろしくお願いします。

新規テキストファイルの名称を変更中、まちがって"!"マークをファイル名に
入れてしまいました。普通このままファイル名を決定したら、"!"マークは
ファイル名に使えないというエラーがでてくるはずなのですが、これが
でてこずになぜかファイルが作られました。
まずいと思い、ファイル名を変えようとしたら、エクスプローラが異常終了
します。これの繰り返しで困っています。
エクスプローラの異常終了の原因は"!"マーク入りファイルでしょうか。
また、このファイルを消す場合、このファイル名の上をマウスポインタが
通過しただけで異常終了になってしまうのでファイルを掴むことができず、
フォルダごとけすしかない?と思っています。
もしくはDOSから消せるかな?と思うのですがDOSコマンドをしらないので
苦戦中。
以上、現状の説明をしていただきたくて質問しました。
いったいどうなってるんでしょう???

A 回答 (2件)

“!”マークは全角/半角ともにファイル名に使える記号です。

(たとえば“!.txt”なんてのも作れます)
ですから、異常終了の原因はおそらく“!”入りファイルではないですね。
マウスオーバしただけで異常終了するのは、おそらくそのファイルが何かのアプリケーション(エクスプローラ含)でロックされっぱなしになっているからではないかと思われます。

…うーん、とりあえず再起動はしてみました?
その手のトラブルは再起動してみるとたいがい直ることが多いんですけれども。

#ちなみにDOSコマンドに降りて消す場合は、そのディレクトリに移動して
del ファイル名
でOKです。でもWindowsから消せないものはDOSからも消せない可能性が高いです。

この回答への補足

ありがとうございます。

はい、勘違いでした!”!”マークはファイル名に使えますね(^_^;)
”?”マークがつかえないというのと勘違いしていました。

再起動は際限なくやりました。
そのたんびにダメです。

ちなみにそのファイルは、秀丸エディタで作成した単なるテキストです。

補足日時:2001/03/01 15:47
    • good
    • 0
この回答へのお礼

あきらめます。
所詮まいきゅろそふとだと思って・・・。
なんかIE5.5入れてからというものエクスプローラがおかしいです。
サービスパックの出現まちかもしれないですね。

ありがとうございました。

お礼日時:2001/03/01 16:21

 こんにちは、myzardです。



 今“!”入りのファイル名を試してみましたが、
問題なく使えました。どうやらシステムの予約文字では
ないようです。

 DOSコマンドですが、削除に必要なのは

「dir」 - ディレクトリ(フォルダ)内のファイル一覧を表示
「cd」 - カレントディレクトリ(今自分がいるフォルダ)から
    別のディレクトリに移動する
「del」 - ファイルを削除する

各コマンドの後ろに半角スペースを入れて、目的のファイルや
ディレクトリを指定します。たとえば、“c:\my document”の中の
“xyz.txt”というファイルを削除したければ、

del "c:\my document\xyz.txt"

を実行してください。DOSでは8文字より多いファイル名を
扱えない点にご注意ください。仮にそうであっても、
ファイル名全体を「"」でくくれば問題ありません。また、
なるべく日本語のファイル名は避けましょう。さらに、
DOS(Windows上のMS-DOSプロンプトではなく、純粋な
MS-DOSモード)ではあらゆるファイル操作がほぼ可能です。
重要なファイルを消してしまわぬようご注意ください。
    • good
    • 0
この回答へのお礼

DOSコマンドの解説ありがとうございました。
とりあえずあまりにも作業ができない情況になったので、
回答を見る前にエクスプローラで、問題のファイルが入っているディレクトリごと
消してみたら、消すことができました。

お礼日時:2001/03/01 15:52

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

Qエクセルで同じファイル名のファイルを別のファイル名で保存したい

エクセルで、社員に同じテンプレートのファイルに入力してもらい、それを集計するつもりです。集まったファイルは同じファイル名なので、別のファイル名としてフォルダに保存したいのですが、簡単にできる方法やフリーソフトはないでしょうか。

Aベストアンサー

メールの添付Book.xls(テンプレ)を開くと 集計Bookにシートを移動
準備
1.集計用のBookを作成(新規  集計.xls など)
2.Tool>マクロ>VisualBasicエディターを起動
3.ThisWorkBookに下記マクロを貼り付け
調整
1.テンプレ名 = "*" を実際のテンプレ名にする。
   *はワイルドカード 例 "*.xls" "*日報*.xls" 
2. Set 名前のセル = Workbooks(1).Sheets(2).Range("A1")の
  セルをテンプレの送信者の名前のあるセルにする。
       例  ・・・.Range("B5")など
3.テンプレのシートが複数なら・・・別途
  
使いかた
1.集計用のBook(マクロ入り)を開く
2.メールの添付 テンプレ.xls を開く。

結果 自動で
 エクセルで開いたときに シート(名前+日付)として テンプレを取り込む。
 開いたテンプレは自動終了するので
 同じ名前のBook、テンプレは同時に開くことを回避。
 

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
テンプレ名 = "*" '*テンプラ.xls" '実際に併せて設定
If Workbooks(2).Name Like テンプレ名 Then

Application.EnableEvents = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False

On Error Resume Next
'メールの添付Book(テンプレ)を開くと 集計Bookにシートを移動
Workbooks(2).Sheets(1).Copy after:=Workbooks(1).Sheets(1)
Workbooks(2).Close
'送信者識別処理、重複防止処理、シート名変更処理
Set 名前のセル = Workbooks(1).Sheets(2).Range("A1")
提出者名 = 名前のセル.Value '提出者名
シート名 = 提出者名 & Format(Now, "yymmdd") '名前+日付
Err = 0
If Workbooks(1).Sheets(シート名).Name = シート名 Then
'既にこの人のテンプレは読み込み済み:更新しない処理??
If Err = 0 Then Workbooks(1).Sheets(2).Delete
End If

If Err Then
'新しい読み込みシート
Workbooks(1).Sheets(2).Name = シート名
End If

Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.EnableEvents = True

End If

End Sub

メールの添付Book.xls(テンプレ)を開くと 集計Bookにシートを移動
準備
1.集計用のBookを作成(新規  集計.xls など)
2.Tool>マクロ>VisualBasicエディターを起動
3.ThisWorkBookに下記マクロを貼り付け
調整
1.テンプレ名 = "*" を実際のテンプレ名にする。
   *はワイルドカード 例 "*.xls" "*日報*.xls" 
2. Set 名前のセル = Workbooks(1).Sheets(2).Range("A1")の
  セルをテンプレの送信者の名前のあるセルにする。
       例  ・・・.Range("B5")など
3.テンプレのシ...続きを読む

Qファイル名を変更するマクロを作成したが「ファイル名または番号が不正です」と表示されます

Webサイト(http://bit.ly/1SszVqL)より、以下のサンプルのマクロをコピーして実行しました。ですが、「×ファイル名または番号が不正です。:52」というエラーで、マクロが機能しません。こちらのマクロのおかしいところを教えてください。詳細は下の通りです。

---------------

Sub A()

Dim fp As String
Dim i As Long
Dim fo As String
Dim fn As String

'パスを変数に格納
fp = Range("A1").Value & "\*.*"

On Error GoTo ERR_HANDL

Range("C4").Value = "実行結果"

'5行目から最終行までループ処理を実行
For i = 5 To Cells(Rows.Count, 1).End(xlUp).Row
'現在のファイル名を取得
fo = Cells(i, 1).Value
'新しいファイル名を取得
fn = Cells(i, 2).Value
'新しいファイル名が入力されているときのみ処理を実行
If fn <> "" Then
'正常処理の実行結果を先に入力
Cells(i, 3).Value = _
"○ファイル名を" & _
"「" & fo & "」から" & _
"「" & fn & "」に変更しました。"
'ファイル名を変更
Name fp & fo As fp & fn
End If
Next i

Exit Sub

ERR_HANDL:

Cells(i, 3).Value = _
"×" & Err.Description & ":" & Err.Number
Resume Next

End Sub

---------------

1)EXCELのバージョンは2010、2013、両方で試しましたが同じ症状でした。

2)仕事でフォルダー内にある大量のファイル名を変更するマクロが必要です。
マクロの基本、etc.はともかく、とりあえずこちらのマクロが機能するようにしたいです。
※連番作成ソフトと組み合わせて、このマクロをそのまま利用する予定です。

3)今、MOS-スペシャシストの勉強中です。合格後、エキスパートも受験予定です。なので、具体的な説明が無理でしたら、マクロの勉強(特にファイル名変更)について簡単なヒント、アドバイスでもOKです。

お手数ですが、説明の上手な方、よろしくお願いします。

Webサイト(http://bit.ly/1SszVqL)より、以下のサンプルのマクロをコピーして実行しました。ですが、「×ファイル名または番号が不正です。:52」というエラーで、マクロが機能しません。こちらのマクロのおかしいところを教えてください。詳細は下の通りです。

---------------

Sub A()

Dim fp As String
Dim i As Long
Dim fo As String
Dim fn As String

'パスを変数に格納
fp = Range("A1").Value & "\*.*"

On Error GoTo ERR_HANDL

Range("C4").Value =...続きを読む

Aベストアンサー

ポイント1

マクロの使用説明書通りに使用をしているか
・A1セルに変更したいファイル群の親フォルダのフルパスが記載されているか
・A5セル以降に変更前のファイル名が表示されている通りに記載されているか
・B5セル以降に変更後のファイル名を記載しているか

ポイント2
・A1セルに入力するフルパス名の最後には”¥”をつけない
・A5セル以降に入力するファイル名は、フォルダの内に表示されているとおりに入力されているか。
すなわち「拡張子を表示する」に設定している場合は拡張子を含めたファイル名を入力、そうでなければ、拡張子を省いたファイル名を入力

QExcelVBAについて質問致します 2つの同じファイル名のExcelファイルが 別々のファイルに有

ExcelVBAについて質問致します

2つの同じファイル名のExcelファイルが
別々のファイルに有り
仮に片方を①、もう片方を②、マクロを書き込むファイルを③とします
①②には一部分だけ違った内容が書き込まれています
書式、書き込みセル位置は全く同じです

②のファイルの中身を③に書き込み
(一部関数が有るので値のみ書き込み)
①と違う部分を赤く着色したいのですが上手く行きません

①のファイルは名前の変更が可能です
ファイル名には最後にインプットと有りますが
同じ名前の組み合わせが大量に有るので
起動時に2つのファイルを選択するか
開いている2つのファイルを対象にしたいです

事務所のpcでダウンロード等は出来ないので
フリーソフトではなくコードで教えて頂けないでしょうか
宜しくお願い致します

Aベストアンサー

大変お待たせいたしました。こんな感じではいかがでしょうか?
---------------------------------------------------------------------------
Sub ファイル比較()
Dim 比較元 As Variant
Dim 比較先 As Variant
Dim ファイル名 As String
Dim 行終 As Long
Dim 列終 As Long
Dim 行 As Long
Dim 列 As Long
Sheets(1).Select
Cells.Delete Shift:=xlUp
ChDir ThisWorkbook.Path
比較元 = Application.GetOpenFilename("Excelブック,*.xls;*.xlsx", , "比較元のファイルを指定して下さい", , False)
If 比較元 = False Then Exit Sub
ChDir ThisWorkbook.Path
比較先 = Application.GetOpenFilename("Excelブック,*.xls;*.xlsx", , "比較先のファイルを指定して下さい", , False)
If 比較先 = False Then Exit Sub
ChDir ThisWorkbook.Path
ファイル名 = Dir(比較先)
Workbooks.Open Filename:=比較先
Sheets(1).Select
Cells.Copy
ThisWorkbook.Activate
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows(ファイル名).Activate
ActiveWorkbook.Saved = True
ActiveWindow.Close
With ActiveSheet.UsedRange
行終 = .Rows(.Rows.Count).Row
列終 = .Columns(.Columns.Count).Column
End With
ファイル名 = Dir(比較元)
Workbooks.Open Filename:=比較元
Sheets(1).Select
With ActiveSheet.UsedRange
If 行終 < .Rows(.Rows.Count).Row Then 行終 = .Rows(.Rows.Count).Row
If 列終 < .Columns(.Columns.Count).Column Then 列終 = .Columns(.Columns.Count).Column
End With
Application.ScreenUpdating = False
With ThisWorkbook.Sheets(1)
For 行 = 1 To 行終
For 列 = 1 To 列終
If .Cells(行, 列).Value <> Cells(行, 列).Value Then
.Cells(行, 列).Interior.ColorIndex = 3
Else
.Cells(行, 列).Interior.ColorIndex = xlNone
End If
Next
Next
End With
Application.ScreenUpdating = True
ActiveWorkbook.Saved = True
ActiveWindow.Close
Range("A1").Select
End Sub
---------------------------------------------------------------------------
※ シート名は関係なく一番左側のシートで対応します。
※ ファイル名も同じで無くてもよく、簡単に選択できるようにしました。
※ 比較するファイルは、マクロのファイルが有るフォルダーのサブフォルダにおいた方がファイル指定が楽になります。
※ もしかしたら比較元と比較先が逆かも知れません。適当に直して下さい。

大変お待たせいたしました。こんな感じではいかがでしょうか?
---------------------------------------------------------------------------
Sub ファイル比較()
Dim 比較元 As Variant
Dim 比較先 As Variant
Dim ファイル名 As String
Dim 行終 As Long
Dim 列終 As Long
Dim 行 As Long
Dim 列 As Long
Sheets(1).Select
Cells.Delete Shift:=xlUp
ChDir ThisWorkbook.Path
比較元 = Application.GetOpenFilename("Excelブック,*.xls;*.xlsx", , "比較元のファイルを指定して下さい", , False)
If...続きを読む

QMSNエクスプローラ終了時のKERNEL32.DLLエラーについて

当初、マイクロソフト社のMSNエクスプローラを軽快に利用しておりましたが、ログアウトし、MSNエクスプローラの画面を閉じると、必ず「Msmsgsが原因で、KERNEL32.DLLにエラーが発生しました…」というメッセージが出て、場合によってはフリーズしてしまします。この場合、再起動せざるを得なくなる確率が高く、仕事の効率がよくありません。
どのような対処方法があるでしょうか。
また、現在のアドレスでは、スパムメールも多く、受信拒否を設定しても、どういう訳か、毎日送られてくる状況です。当初、アウトルックエクスプレスと同期を取っておりましたが、現在、エクスプレスの方のアカウントを削除しております。このような状態で、大変に難儀をしております。
どうかアドバイスの程、よろしくお願い申し上げます。

Aベストアンサー

こちらが参考になれば幸いです

参考URL:http://homepage2.nifty.com/winfaq/w98/trouble.html#165

Qエクセルが異常終了

Office2000をインストールしているPCに、Excel2010のアップグレード版を使用してアップグレード
しました。OSはWinXPです。
 作成したデータを印刷しようとすると、添付資料のような異常終了をします。
作成したデータを他のPCに移すと、同じプリンターで異常終了することなく印刷できます。
 異常終了しない方法を教えてください。

Aベストアンサー

>>「異常終了しない方法」<<
   ↓ こんな感じです。
・すごく体調が悪いのですが・・・
* どんな風に悪いのですが?
・わからないけど、とにかく快調になるにはどうしたらいいですか?
* ?・・・・


1、・Windows UpdateでXPとOfficeを最新状態に更新してあるか確認してください。
2、そのPCを「他のPC」と同じ構成にすれば済むことです。
3、わからなければそのPCをリカバリーして更新し、Officeを再インストール。
4、どの方法も自分でできない環境なら印刷だけ「他のPC」で。

その他
・直接には無関係かもしれませんが、Office2000は何年も前にサポートが終わっていて、Windowsの更新などで不具合が出ても修正プログラムは配布されません。
・Windows XPはSP3でなければいけません。
  Win XPもあと2年でサポートが終わります。


人気Q&Aランキング

おすすめ情報