' ******************************************************' ローカルファイルリスト作成' ******************************************************
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.FLIST
Set oLIST = frm.LIST
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
ツリーのノードをクリックした時にファイルを表示する
Private Sub TV_Click()
Dim oNode As Node
Set oNode = TV.SelectedItem
ChDir "\" & oNode.FullPath
LoadListView frmMain
End Sub
ListView の表示調整
Private Sub Form_Load()
Dim oITEM As Object
TV.Top = DRV.Height
TV.Width = DRV.Width
LIST.Left = DRV.Width
LIST.ListItems.Clear
ChDir "\"
TV.Nodes.Clear
LoadTreeView frmMain, 0
End Sub
Private Sub Form_Resize()
If WindowState <> 1 Then
TV.Height = frmMain.Height - DRV.Height - 700
LIST.Height = frmMain.Height - 700
LIST.Width = frmMain.Width - DRV.Width - 120
End If
End Sub
ドライブ変更時の処理
Private Sub DRV_Change()
On Error GoTo ErrorMsg
ChDrive DRV.Drive
ChDir "\"
TV.Nodes.Clear
LoadTreeView frmMain, 0
LIST.ListItems.Clear
Exit Sub
ErrorMsg:
MsgBox Err.Description, vbOKOnly, "EPM"
End Sub
