No.3ベストアンサー
- 回答日時:
FileSystemObjectが使える環境なら
Dim Fso As New FileSystemObject
Dim ReCnt As Long
ReCnt = Fso.GetFolder("c:\フォルダのフルパス\*.TXT").Files.Count
でReCntに個数を取得できます。しかしこれもフォルダを取得してテキストを自分でカウントするのですが。
こういう事ではないのでしょうか。
No.4
- 回答日時:
vbCrLfの数を数える。
FSOを使ってやってみました。Sub test01()
Dim fs As Object, ts As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile("C:\Documents and Settings\XXXX\My Documents\YYYYY.txt")
If ts.AtEndOfStream = False Then
s = ts.readall
MsgBox s
n = Split(s, vbCrLf)
MsgBox UBound(n)
End If
ts.Close: Set ts = Nothing
Set fs = Nothing
End Sub
No.3 O cyanの回答にもありました「FileSystemObject」のGetFolderはどうやっても例外エラーになりました。
以下の方法で求めることができました。
皆さん、いろいろありがとうございました
Dim objFso As Scripting.FileSystemObject
Dim FsoTS As Scripting.TextStream
Dim ReCnt As Long
objFso = CreateObject("Scripting.FileSystemObject")
FsoTS = objFso.OpenTextFile("C:\Documents and Settings\XXXX\My Documents\YYYYY.txt"), Scripting.IOMode.ForAppending)
ReCnt = FsoTS.Line
FsoTS.Close()
FsoTS = Nothing
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルvbaでdocuworksprinter...
-
エクセルVBAで一つ上の階層...
-
開いているファイルを削除し、...
-
xcopyコマンドの進行状況を表示...
-
【VBA】ExcelマクロでCSVファイ...
-
VBS パスに変数を入れたい
-
ファイルがオープンできない
-
コマンドプロンプトのコピー関...
-
EXCEL(VBA)で指定フォルダ内の...
-
TerapadからFirefoxを開きたい
-
Excel 相対パス
-
VBAで、VBのapp.pathと同じ機能...
-
エクセルの二重起動をやめたい
-
C#でのProcess.Startと変数path
-
エクセルのマクロで特定フォル...
-
FolderBrowserDialogについて-2
-
ExcelのVBAで上書き保存を確...
-
実行ファイルのパスを取得したい
-
Cの関数で自分自身のパス取得
-
vb.netについて。 環境visual s...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルvbaでdocuworksprinter...
-
Excel 相対パス
-
xcopyコマンドの進行状況を表示...
-
エクセルのマクロで特定フォル...
-
エクセルVBAで一つ上の階層...
-
【VBA】ExcelマクロでCSVファイ...
-
コマンドプロンプトのコピー関...
-
A列に記載されているフォルダ...
-
ExcelVBAの使い方 ¥の使い方...
-
EXCEL(VBA)で指定フォルダ内の...
-
【VB.NET】App.configにファイ...
-
SaveAsの保存先について
-
outlook開けない
-
Eclipse
-
VBAでパワーシェルを実行したい...
-
fopenでのパス指定
-
指定したフォルダ内の最新ファ...
-
開いているファイルを削除し、...
-
VBA★PDFをPDFアプリで印刷し...
-
ExcelのVBAで上書き保存を確...
おすすめ情報