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を探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルvbaでdocuworksprinter...
-
ドライブレターの大文字・小文...
-
アクセス 自身のデータベース...
-
Excel 相対パス
-
【VBA】ExcelマクロでCSVファイ...
-
C++でネットワークパスのファイ...
-
C#でのProcess.Startと変数path
-
EXCEL(VBA)で指定フォルダ内の...
-
ExcelVBAの使い方 ¥の使い方...
-
エクセルのマクロで特定フォル...
-
Visual Studio 2013
-
コマンドプロンプトでファイル...
-
Windowsファイルパスの妥当性に...
-
OleDbDataAdapterのエラー
-
エクセルVBAで一つ上の階層...
-
初心者powershellのPS1ファイル...
-
エクセルのプロパティーでセキ...
-
frxファイルの役目
-
xcopyでのバッチコピー方法でコ...
-
[virtualbox] Windows XP のVHD...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルvbaでdocuworksprinter...
-
xcopyコマンドの進行状況を表示...
-
エクセルVBAで一つ上の階層...
-
Excel 相対パス
-
【VB.NET】App.configにファイ...
-
VBA★PDFをPDFアプリで印刷し...
-
エクセルのマクロで特定フォル...
-
コマンドプロンプトのコピー関...
-
VBAでパワーシェルを実行したい...
-
ExcelのVBAで上書き保存を確...
-
実行ファイルのパスを取得したい
-
開いているファイルを削除し、...
-
初心者powershellのPS1ファイル...
-
ExcelVBAの使い方 ¥の使い方...
-
EXCEL(VBA)で指定フォルダ内の...
-
パスワード保護されたExcelファ...
-
【VBA】ExcelマクロでCSVファイ...
-
【VBA】複数のtxtファイルから...
-
C#でのProcess.Startと変数path
-
エクセルのファイルオープン時...
おすすめ情報