수다닷컴

Open C:\WINDOWS\ListName.ini For Input As #1
Do Until EOF(1)
Line Input #1, tmp1
List1.AddItem tmp1
Loop
Close #1
Open C:\WINDOWS\ListLink.ini For Input As #1
Do Until EOF(1)
Line Input #1, tmp1
List2.AddItem tmp1
Loop
Close #1불러오는 소스입니다.

On Error Resume Next
CMD.ShowOpen
If CMD.filename = Or CMD.FileTitle = Then
Else
Text1 = Text1 & CMD.FileTitle & / & CMD.filename & vbCrLf
If List1.ListCount = 0 Then: List1.AddItem CMD.FileTitle: List2.AddItem CMD.filename: Exit Sub
For i = 0 To List1.ListCount - 1
If InStr(List1.List(i), CMD.FileTitle) Then
MsgBox 이미 곡이 추가되잇습니다., vbInformation,
Else
List2.AddItem CMD.filename
List1.AddItem CMD.FileTitle
End If
Next i
End If

내용감지후 없으면 추가하는소스입니다.
리스트 1과 2에 아무것도없을때 추가하면 아무이상없습니다. (정상적 추가됨)
그다음 또 추가하면 내용을 감지해서 추가를 못하게합니다.
껏다킨뒤리스트1에는 그내용이 여전히 잇습니다.
리스트를 추가합니다.

똑같은내용이잇다고 감지를합니다.

하지만 추가됩니다.
불러와서 추가하면 감지해도 추가되는데
어떻게 고쳐야하죠

신청하기