ListView について (ID:100523)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

題記の件につきまして，ご存じの方ご教授願えれば幸いです．

ListViewを使用してフォルダの
ファイル名，ファイルサイズ，更新日時を表示したいと考えています．
下記のように作成したのですが、エラー（プロパティ値が不正です．実行時エラ３８０）が出てしまい，対処ができません。
ご存じの方，お教え願えればうれしいです．よろしくお願いします．

【環境】
VB6.0（SP5）

【ソース】
'--------------------------------------------------------------------
'   機    能：ディレクトリーリスト
'--------------------------------------------------------------------
Private Sub Dir1_Change()
Dim p As Variant
Dim Lv As ListItem
Dim buf As String

ChDir Dir1.Path
ListView1.ListItems.Clear
p = Dir("*.*", 2 + 4 + 16)

Do While p <> ""
        If Not (p = "." Or p = "..") Then
            If (GetAttr(p) And vbDirectory) = vbDirectory Then
                Set Lv = ListView1.ListItems.Add(, , p)
                    Lv.SubItems(1) = "フォルダ"
            Else
                Set Lv = ListView1.ListItems.Add(, , p)
                   '1023 で切り上げ
                   buf = (FileLen(p) + 1023) \ 1024 & "KB"
↓↓↓↓↓ここでエラーが出てしまいます
                   Lv.SubItems(1) = CStr(buf)
↑↑↑↑↑ここでエラーが出てしまいます

'                   Lv.SubItems(1) = (FileLen(p) + 1023) \ 1024 & "KB"
            End If
            Lv.SubItems(2) = FileDateTime(p)
        End If
        p = Dir
    Loop

End Sub

←解決時は質問者本人がここをチェックしてください。

戻る