' ******************************************************
' ローカルファイルリスト作成
' ******************************************************
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