7,763
社区成员
发帖
与我相关
我的任务
分享
Open App.Path + "\1.txt" For Input As #1
Line Input #1, s
listview1.ListItems.Add , , strSections(i), , a + 1
Dim i As Integer
Dim j As Integer
Dim strSections() As String
Dim strKeys() As String
strFile = App.Path & "\2.ini"
strSections = ReadSections(strFile)
Open App.Path + "\1.txt" For Input As #1
Line Input #1, s
j = 1
For i = 0 To UBound(strSections)
If strSections(i) <> "slist" And strSections(i) <> "config" And strSections(i) <> "" Then
Call ReadKeys(strSections(i), strFile, strKeys)
listview1.ListItems.Add , , strSections(i), , a + 1
listview1.ListItems(j).SubItems(1) = Replace$(strKeys(0), "info=", "")
If FileExists(App.Path & "\" & Replace$(strKeys(1), "path=", "")) Then
listview1.ListItems(j).SubItems(2) = "未操作"
listview1.ListItems(j).Checked = True
listview1.ListItems(j).SubItems(3) = GetFileSize(App.Path & "\" & Replace$(strKeys(1), "path=", ""), ISPN_FT_SIZEINMB)
Else
listview1.ListItems(j).SubItems(2) = "不存在"
End If
j = j + 1
End If
Next
Dim i As Integer
Dim j As Integer
Dim strSections() As String
Dim strKeys() As String
strFile = App.Path & "\2.ini"
strSections = ReadSections(strFile)
Open App.Path & "\1.txt" For Input As #1
If Not EOF(1) Then
Line Input #1, s
Else
MsgBox "have not ico!"
End If
j = 1
For i = 0 To UBound(strSections)
If strSections(i) <> "slist" And strSections(i) <> "config" And strSections(i) <> "" Then
Call ReadKeys(strSections(i), strFile, strKeys)
If j = s Then
listview1.ListItems.Add , , strSections(i), , s
If Not EOF(1) Then
Line Input #1, s
Else
MsgBox "have not ico!"
End If
Else
listview1.ListItems.Add , , strSections(i)
End If
listview1.ListItems(j).SubItems(1) = Replace$(strKeys(0), "info=", "")
If FileExists(App.Path & "\" & Replace$(strKeys(1), "path=", "")) Then
listview1.ListItems(j).SubItems(2) = "未操作"
listview1.ListItems(j).Checked = True
listview1.ListItems(j).SubItems(3) = GetFileSize(App.Path & "\" & Replace$(strKeys(1), "path=", ""), ISPN_FT_SIZEINMB)
Else
listview1.ListItems(j).SubItems(2) = "不存在"
End If
j = j + 1
End If
Next
Close #1