【復活求む!】惜しくも解散してしまったバンド|J-ROCK編 >>

宜しくお願いいたします。

サーバー上のフォルダに、ワードのファイルがたくさん
あるのですが、これを簡単に数える方法は内でしょうか?

ファイルが数百個あるので一つ一つ数えるのは時間がかかり・・・。

教えてください。

宜しくお願いします

このQ&Aに関連する最新のQ&A

A 回答 (4件)

フォルダに分かれているならフォルダを右クリックしてプロパティを見れば分かります。


フォルダ無しでファイルだけの場合はすべてを選択すればエクスプローラのステータスバーに表示されます。
ステータスバーの表示方法は
http://121ware.com/qasearch/1007/app/nec.jsp?003 …
    • good
    • 7

フォルダ上で、キーボードの「Ctrl」+「A」を押すと、左の詳細のところに、「○項目を選択」と表示されます。

    • good
    • 6

No.1様の回答と重複しますが、


ファイル数を調べたいフォルダの上で
1.右クリック
2.検索クリック
3.*.doc *docxを入力し検索
以上でワードファイルを検索する(数を調べる)事が出来ます。
    • good
    • 1

検索機能を使って、当該フォルダ内のWordファイルを検索したら個数も分かるのでは?

    • good
    • 2

このQ&Aに関連する人気のQ&A

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

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

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

Qエクセル:フォルダ内のファイル数を数える

1つのファイルを選択後、
そのファイルを開いてある操作をし、閉じる。
その後自動的に、同一フォルダ内のファイルを開いて同様の操作をし、閉じる。
これをフォルダ内のファイル全てに対して行う、
というマクロを組みたいです。

例えば、
フォルダAに、File1.csv, File2.csv, File3.csv, File4.csv の4ファイルがある時、
File3.csvを選んで操作を実行(csvファイル内のセルA4の値を、マクロを実行したExcelファイルにコピー)。
実行完了後、File3.csvは閉じる。
続けて、File1,File2,File4についても、
開く→コピーする→閉じる、を繰り返す。
フォルダ内全てのファイルに対して実行したら終了。
ファイル名は、常にFile+数字.csvではありませんが、拡張子は常にCSVです。

素人考えでは、フォルダ内のファイルの数と名前を取得し、ループで回せばいいと思うのですが、
「フォルダ内のファイルの数と名前を取得」する関数でもあるのでしょうか?
他に何か楽な方法でもあれば、教えてください。

1つのファイルを選択後、
そのファイルを開いてある操作をし、閉じる。
その後自動的に、同一フォルダ内のファイルを開いて同様の操作をし、閉じる。
これをフォルダ内のファイル全てに対して行う、
というマクロを組みたいです。

例えば、
フォルダAに、File1.csv, File2.csv, File3.csv, File4.csv の4ファイルがある時、
File3.csvを選んで操作を実行(csvファイル内のセルA4の値を、マクロを実行したExcelファイルにコピー)。
実行完了後、File3.csvは閉じる。
続けて、File1,File2,File4につい...続きを読む

Aベストアンサー

Dir関数でやってみました。
このマクロを記述したエクセルのBOOKと同じフォルダ内のすべてのcsvファイルを開き、A4の値を取得します。

Sub test01()

Dim MyFile As String, MyPath As String
Dim i As Long
Dim wb As Object

MyPath = ThisWorkbook.Path & "\" '自分のパスを取得
MyFile = Dir(MyPath & "*.csv", vbNormal) 'パス内のcsvファイル

Do Until MyFile = "" '対象ファイルがなくなるまで
Set wb = Workbooks.Open(MyPath & "\" & MyFile) '選択したファイルを開く
i = i + 1
ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value = wb.Sheets(1).Range("A4").Value '転記
wb.Close (False) '選択したファイルを閉じる

MyFile = Dir '次のファイルを検索
Set wb = Nothing

Loop '繰り返し

End Sub

Dir関数でやってみました。
このマクロを記述したエクセルのBOOKと同じフォルダ内のすべてのcsvファイルを開き、A4の値を取得します。

Sub test01()

Dim MyFile As String, MyPath As String
Dim i As Long
Dim wb As Object

MyPath = ThisWorkbook.Path & "\" '自分のパスを取得
MyFile = Dir(MyPath & "*.csv", vbNormal) 'パス内のcsvファイル

Do Until MyFile = "" '対象ファイルがなくなるまで
Set wb = Workbooks.Open(MyPath & "\" & MyFile) '選択したファイルを開く
i = i + 1
ThisWo...続きを読む

Qパソコン内の全ファイル数を調べる方法教えてください。

教えてください。お願いいたします。

Aベストアンサー

こんにちは。

 「マイコンピュータ」を開き、「Cドライブ」を右クリックして出るメニューの「検索」を選びます。
 「ファイルまたはフォルダの名前」に「*」(半角)を入れて「検索開始」ボタンを押すとCドライブの全てのファイルが検索できると思います。

では。

Qバッチファイルでフォルダ内のファイル数をカウントしたい

こんにちは。よろしくお願いします。

WindowsServer2003環境で、
バッチコマンドで以下のことをしたいと思っています。

(1)特定のフォルダに存在するファイル数をカウント
(2)既定の数あれば何もせず終了、数に相違があればエラーを返す。
(エラーはエラーレベルとSEND MESSAGEの出力)
既定の数は常に決まった数です。

やりたいことは簡単なのですが、
DOSコマンドだけだと方法が思いつきません。。。
VBScriptなどを使わないと無理でしょうか。。。

Aベストアンサー

WindowsServer2003の環境がないで、XPのコマンドプロンプトで作ってみました^^;
参考になればいいですが・・・

規定の数はとりあえず10としています。
カレントディレクトリの(ディレクトリ含む)ファイルをカウントしています。

@echo off

set i=0
for /D %%f in (*) do set /a i=i+1

if %i% lss 10 goto Short:

echo ファイルが%i%個あります、
echo ファイルが10個以上のときの処理を行います。

goto Exit:
:Short

echo ファイルが%i%個しかありません、
echo ファイルが10個未満のときの処理を行います。

:Exit

QEXCEL VBA で現在開いているブックのファイル名を取得する方法

EXCEL2003 VBAで業務を簡素化するために、現在開いているブックのファイル名を取得する方法が分かりません。
作業手順をマクロを使って処理していますが、オリジナルのワークブックをファイル名を変えて保存し、以後、このワークブックを読み込んで使用しています。
このときのVBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり、以後の業務に使用できません。
常にファイル名を取得出来るVBAをどなたか、教えて下さい。

Aベストアンサー

>現在開いているブックのファイル名
 ちょっと曖昧な表現かなぁという気もいたしますが、VBAが書いてあるブックのブック名は
ThisWorkbook.Name
で、現在 "アクティブにして" 操作対象になっているブックの名前は
ActiveWorkbook.Name
ですね。

 しかし、
>VBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり
というような文脈からすると、
ThisWorkbook.Name
の方ですかね。

Qフォルダの中に1個しかファイルがないのに、プロパティーではファイル数が2個となっている

あるフォルダを開いたら中には一つしかファイルがないのに、そのフォルダのプロパティーをみると、ファイル数:2となっていて、サイズも中に入っているファイル以上の数値が表示されています。(フォルダのサイズは1.31Mと表示され、中に入っているファイルは7KBしかありません。)コントロールパネルから隠しファイルも表示されるようにしましたが、やはり、フォルダの中には1個しかファイルが表示されていません。これはなぜなのでしょうか?教えてください。

Aベストアンサー

疑問が解決して、良かったですね。
勇み足を出してしまったので、気になっていました。

で、少しお役に立てればと・・・

Thumbs.dbとは、フォルダ内のHTMLファイルや画像のサムネイルを保存しておくものです。
キャッシュのようなもので、これによって 一度サムネイルされたものを、次回から高速に表示するようになります。

これは削除しても問題ありませんが、再度サムネイル表示をさせれば、
また勝手にファイルが作られます。

QDirコマンドでフォルダ内ファイルの合計サイズをだすには?(コマンドプロンプトにて)

いろいろ調べましたが不明な点があり、質問します。

WindowsのDOSプロンプトでdirコマンドを打つとフォルダ・ファイルの一覧が表示されますが、その中にファイルサイズが表示されています。
このサイズを合計できるコマンドはありませんか?
DIRコマンドのオプションを調べましたがそれらしいものが見当たりません。
具体的には
C:\xxx\配下に50個程度のファイルがあります。
その50個の合計サイズを知りたいです。
xxxフォルダの親フォルダにはアクセス不可です。

ずーっと悩んでいます。よろしくお願いします。

なお、OSはWindowsNTか2000で使用予定です。

Aベストアンサー

カレントドライブ、カレントフォルダを
C:\xxx\
にした状態で、

dir /s /a-d

/sパラメータででサブディレクトリすべてを検索
/a-dパラメータでディレクトリ以外のファイル(つまり属性に関係なくすべてのファイル

これを実行すると最後にファイルの個数とファイルサイズの合計を表示します。

もし、隠し属性のファイルは合計しないのであれば、

dir /s

だけで良いと思われます。

Qエクスプローラでフォルダー内のファイル数を確認する方法

windowsXP home 
エクスプローラで、サブフォルダー内を含めて
ファイル数が幾つあるか確認する方法を教えてください。
階層が4つくらいあります。
フォルダー数も20くらいあり、それぞれにファイルがありますが、随時増えていきますので数えなくても確認できる方法があれば教えてください

Aベストアンサー

フォルダ上で右クリック→プロパティでフォルダ数、ファイル数が表示されます。

Qエクセル マクロで指定フォルダを開く

エクセルにて
指定フォルダを開く、マクロがあれば教えて頂けないでしょうか。
よろしくお願いいたします。

Aベストアンサー

こんにちは。

こういうものですか?
開くフォルダを変えたいときは targ に与えるパスを変更します。

Sub OpenFolders()
Dim targ As String
targ = "C:\"
Shell "C:\Windows\Explorer.exe " & targ, vbNormalFocus
End Sub

Qexcel vbaのdir関数で正しいファイル数が取得できません

excel vbaの初心者です
現在、フォルダ内にあるファイルの数をカウントするために、dir関数を使用してプログラミングしています。
このプログラムで問題が発生していて困っています
1.マクロを起動して、指定したフォルダ内のファイル数をカウントする
2.フォルダ内のファイルを増減させる
3.再度、マクロを実行してもファイル数は1.で起動したときのファイル数のままで、2.で変更した後のファイル数になりません。
このため、マクロを再実行しても正しいファイル数が取得できずに困っています。
もしかすると、マクロ実行前にメモリのガーベージコレクションみたいなことをしないといけないのかもしれないのですが、なんせvbaは初心者のためどうすればいいのか途方にくれています。

業務で使いたいのですが、小さい会社で周りには聞くことのできる人もいないので、どなたかご回答をよろしくお願いいたします。

Aベストアンサー

下記で問題なく動作しますよ?
1.マクロの入ったExcelを起動し、マクロでファイル数確認
2.Excelを閉じずに対象フォルダにファイルを追加
3.再度マクロを実行しファイル数を確認 → 結果は変わっている。
-------
Sub test()
Dim cnt As Long: cnt = 0
Dim file As String

file = Dir("C:\foo\*")
Do While file <> ""
cnt = cnt + 1
file = Dir()
Loop
MsgBox cnt
End Sub

QEXCELファイルのカレントフォルダを取得するには?

EXCELファイルのカレントフォルダを取得するには?

C:\経理\予算.xls

D:\2005年度\予算.xls

EXCEL97ファイルがあります。

VBAで
  カレントフォルダ名
(C:\経理\,D:\2005年度\)
を取得する事は可能でしょうか?

CURDIRでは上手い方法が見つかりませんでした。

Aベストアンサー

こんばんは。
Excel97 でも、同じですね。以下で試してみてください。

Sub test()
'このブックのパス
a = ThisWorkbook.Path
'アクティブブックのパス
b = ActiveWorkbook.Path
'Excelで設定されたデフォルトパス
c = Application.DefaultFilePath
'カレントディレクトリ
d = CurDir
MsgBox "このブックのパス   : " & a & Chr(13) & _
   "アクティブブックのパス: " & b & Chr(13) & _
   "デフォルトパス    : " & c & Chr(13) & _
   "カレントディレクトリ : " & d & Chr(13)
End Sub


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング