プログラムについて

質問

初心者なんですが、フォルダの中の文章を表示させるプログラムってＶＢでできるんでしょうか？参考書を見ても難しかったり、どこを見ればいいかとかがわかりません。どういう風にプログラムを作ればいいかわかる方少しでもいいんで願いします。

回答No.4

TAGOSAKU7 · ベストアンサー

サンプルです。

必要なもの
フォーム１[Form1]
TextBox[Text1]
DriveListBox[Drive1]
DirListBox[Dir1]
FileListBox[File1]
それぞれツールボックスから選択して貼り付けてください。
テキストボックス[Text1]は、この時プロパティの調整が必要です。
MultiLine = True
ScrollBar = 0-なし 以外だったら何でもいいです

処理内容
１．フォームロード時にテキストボックスを初期化
２．ドライブリストボックス／ディレクトリリストボックスのチェンジイベントで、フォルダを指定
３．ファイルリストボックスのダブルクリックで、そのファイルのテキスト内容を表示

Option Explicit

'フォルダリストのパスが変更されたとき、ファイルリストのパスも変更
Private Sub Dir1_Change()
　　File1.Path = Dir1.Path
End Sub

'ドライブリストのパスが変更されたとき、フォルダリストのパスも変更
Private Sub Drive1_Change()
　　Dir1.Path = Drive1.Drive
End Sub

'ファイルリストボックスをダブルクリックで、ファイル内容を表示
Private Sub File1_DblClick()
　　Dim wkPath　As String
　　Dim wkFile　As String
　　Dim wkFileFullPath　As String

　　'パスを取得
　　wkPath = File1.Path
　　wkPath = IIf(Right(wkPath, 1) = "\", wkPath, wkPath & "\")

　　'ファイル名を取得
　　wkFile = File1.List(File1.ListIndex)

　　'ファイルフルパスを取得
　　wkFileFullPath = wkPath & wkFile

　　'ファイルの中身を取得
　　Text1.Text = getText(wkFileFullPath)
End Sub

'フォームロード時に初期化
Private Sub Form_Load()
　　Text1.Text = ""
End Sub

'指定のファイル内の文字列を取得する関数
Private Function getText(inFilePath As String) As String
　　Dim lngFile　　 As Long　　 'ファイルナンバ
　　Dim lngFileSize As Long

　　'ファイルサイズを取得
　　lngFileSize = FileLen(inFilePath)

　　'読み込みバッファの領域確保
　　ReDim fileBuf(lngFileSize - 1) As Byte

　　'バッファを取得
　　lngFile = FreeFile
　　Open inFilePath For Binary As #lngFile
　　　　Get #lngFile, , fileBuf
　　Close #lngFile

　　'取得した文字列を返す
　　getText = StrConv(fileBuf, vbUnicode)
End Function