[[ファイルのみです]]
@DIV
C:\php\PEAR\.depdb 4124
C:\php\PEAR\.depdblock 0
C:\php\PEAR\.filemap 7901
C:\php\PEAR\.lock 0
C:\php\PEAR\go-pear.phar 582211
C:\php\PEAR\Image_Canvas-0.3.0.tgz 43423
C:\php\PEAR\Image_Graph-0.7.2.tgz 368056
C:\php\PEAR\PEAR.php 35365
C:\php\PEAR\pearcmd.php 15207
C:\php\PEAR\peclcmd.php 1837
C:\php\PEAR\System.php 19956
@END

@DIV
Imports System.IO

Module MyModule

REM ********************************************************
REM * 実行
REM ********************************************************
Sub Main()


	Try
		Dim dirs As String() = Directory.GetFiles("C:\php\PEAR\", "*.*")

		Console.WriteLine("ファイルの数 : {0}", dirs.Length)

		Dim dir As String
		Dim fi As FileInfo

		For Each dir In dirs
			fi = new FileInfo( dir )
			dir &= " "
			dir &= fi.Length
			Console.WriteLine(dir)
		Next

	Catch e As Exception
		Console.WriteLine("エラーの内容 : {0}", e.ToString())
	End Try

End Sub

End Module
@END