ファイルの種類・属性を表示したい

質問

ファイルの属性を表示させたいのですが、
Dim FileName
FileName = "C:\TEST.TXT"
Set fs = CreateObject("scripting.FileSystemObject")
Set f = fs.GetFile(FileName)
Msgbox(F.Size & F.DateLastModified)
とすると、ファイルのサイズ・最終更新日が表示されます。
あと、ファイルの種類・属性を表示させたいのですが、
F.Type、F.Attributeなどとやってもうまくいきません。
上のロジックは、人からもらった物なので、完璧に理解している訳ではないんですが・・・。
おわかりになる方、よろしくお願いします。

回答No.2

isobeman · ベストアンサー

そのままででますけど。。。

最後の1行を下のようにしてみてください。
Msgbox(F.Size & vbCRLF& F.DateLastModified & vbCRLF& F.Type & vbCRLF& F.Attributes)

でませんか?

ちなみに、WSHで確認しました。

お礼

回答、ありがとうございます。

補足

あ、出来ました。
何か勘違いしていたのかも知れません。

回答No.1

GOLDEN

何を使って作成したいのか書かないと、答えもつきませんよ
今回の場合は、まぁ解る人が見ればＶＢだとは解りますけど・・・

--------------------
Private Sub Form_Load()
Dim Attr As Integer
Dim Msg As String
Dim FileName As String

FileName = "C:\TEST.TXT"

' 属性の取得
Attr = GetAttr(FileName)

'メッセージの作成
If (Attr And vbArchive) <> 0 Then Msg = Msg & "アーカイブ" & vbCr
If (Attr And vbDirectory) <> 0 Then Msg = Msg & "フォルダ" & vbCr
If (Attr And vbHidden) <> 0 Then Msg = Msg & "隠しファイル" & vbCr
If (Attr And vbReadOnly) <> 0 Then Msg = Msg & "書込み禁止" & vbCr
If (Attr And vbSystem) <> 0 Then Msg = Msg & "システム" & vbCr
If (Attr And vbNormal) <> 0 Then Msg = Msg & "通常ファイル" & vbCr

'属性の表示
MsgBox Msg
End Sub
--------------------

これで、一応属性は出せます
ファイルタイプを出す方は、恐らくSDKを使わないと実現できないかと・・・

お礼

回答、ありがとうございます。

補足

すいません、Access97のVBAでした。