| 投稿日 | ： 2007/01/05(Fri) 20:09 |
| 投稿者 | ： 7-2/1 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： ファイルの種類を判断しテキスト形式のファイルのみオープン |
Microsoft Common Dialog Control を使ってファイルを開き、
テキストボックスに設定を行っています。
ダイアログボックスのフィルタを「すべてのファイル」とし、
指定したファイルがテキスト形式かそれ以外かをチェックし、
テキスト形式のファイルのみをオープンするようにしたいの
ですが、どうすればよいのですか。
GetAttrとかを使ってみたのですが上手くいきません。
ファイルの種類を知る方法とかあるのでしょうか。
-------------------------------------------------------------
Private Sub Command1_Click()
Dim FN As String
Dim ReadData As String
Dim TextData As String
Dim FileNo As Integer
CommonDialog1.Filter = "すべてのファイル(*.*)|*.*"
CommonDialog1.ShowOpen
FN = CommonDialog1.FileName
If FN = "" Then
Exit Sub
End If
If GetAttr(FN) And vbArchive <> 0 Then
MsgBox "テキスト形式ファイルではありません。"
Exit Sub
End If
FileNo = FreeFile
Open FN For Input As #FileNo
Do While Not EOF(FileNo)
Line Input #FileNo, ReadData
TextData = TextData & ReadData & vbCrLf
Loop
Text1.Text = TextData
Close #FileNo
End Sub