ALFiles.Clear
FileSearch(ALFiles,SubString(wikiDir,0,StrLength(wikiDir)-1),"*.txt")
For f=0 To ALFiles.Count-1
FileOpen (c1, ALFiles.Item(f), cRead ,, cASCII)
contents = FileReadToEnd(c1)
FileClose (c1)
r=StrIndexOf(contents,"[" & currentpage & "]",0) '+ StrIndexOf(contents,"][" & currentpage & "]]",0)
s = StrIndexOf(contents, "][" & currentpage & "]",0)
If r>-1 AND s = -1 Then
Msgbox(ALFiles.Item(f) & crlf & "Is Backlink")
End If
Next