リストビューのソートについて (ID:88888)

名前

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

本文

レスありがとうございます。
以下のソースで検索リストから選択リストにファイル名をコピーしています。

Dim i As Integer
    Dim j As Integer
    Dim checkflag As Integer
    Dim itmX As ListItem

For i = 1 To 検索リスト.ListItems.Count
     
        If 検索リスト.ListItems(i).Checked = True Then
        
            If intAddCount = 100 Then
                MsgBox ("選択可能なファイル数は100件までです。")
                Exit Sub
            End If
        
            '/// 重複してコピーしないように
            checkflag = 0
            For j = 1 To 選択リスト.ListItems.Count
                If 選択リスト.ListItems(j) = 検索リスト.ListItems(i) Then
                    checkflag = 1
                    Exit For
                End If
            Next j

'/// コピーを実行
            If checkflag = 0 Then
                Set itmX = 選択リスト.ListItems.Add(, , 検索リスト.ListItems(i))
                itmX.SubItems(1) = FileDateTime(strOpenFilePath & 検索リスト.ListItems(i))
                intAddCount = intAddCount + 1
                
                '/// 結合ファイル名をプリセット
                If intAddCount = 1 Then
                    Text1.Text = 検索リスト.ListItems(検索リスト.ListItems.Count)
                End If
                
                '/// 選択ファイル数を表示
                If intAddCount > 0 Then
                    AddCounter.Caption = intAddCount & "件"
                End If
            End If
        End If
    Next i

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

戻る