' ****************************************************** ' ローカルファイルリスト作成 ' ****************************************************** Public Sub LoadListView(frm As Form) Dim I As Long Dim oFILE As FileListBox Dim oLIST As ListView Dim oITEM As ListItem Set oFILE = frm.filローカル ' With を使わずに記述を短く Set oLIST = frm.lstローカル oFILE.Path = CurDir() oLIST.ListItems.Clear For I = 0 To oFILE.ListCount - 1 Set oITEM = oLIST.ListItems.Add(, , oFILE.List(I)) ' ファイル名 oITEM.SubItems(1) = FileLen(oFILE.List(I)) ' サイズ oITEM.SubItems(2) = FileDateTime(oFILE.List(I)) ' 更新日付 Next I End Sub
Module2.LoadListView Me
With Me.lstローカル .Left = Me.trvサーバ.Width + Me.drgBar.Width .Top = 0 .Width = Me.ScaleX(rc.Right, vbPixels, vbTwips) _ - nWidthTreeView _ - Me.drgBar.Width .Height = Me.ScaleY(rc.Bottom, vbPixels, vbTwips) End With