J
James
I've got this code and for some reason it can't find the file listed as
input file... if I switch it to output it doesn't have a problem. Any
ideas?
Public Sub buildSQL()
Open "C:\UpdateUSAAID\1.txt" For Input As #1
Open "C:\UpdateUSAAID\excludeListSQL.txt" For Output As #2
Do While Not EOF(1)
Line Input #2, excludeMember
If Not IsNull(VN_CAP_REFERRAL_V1.EMAIL_ADDRESS.TXT) Then
Write #2, "This is my sql STATETEMENT WITH NUMBER: " +
excludeMember
End If
Loop
Close #1
Close #2
End Sub
input file... if I switch it to output it doesn't have a problem. Any
ideas?
Public Sub buildSQL()
Open "C:\UpdateUSAAID\1.txt" For Input As #1
Open "C:\UpdateUSAAID\excludeListSQL.txt" For Output As #2
Do While Not EOF(1)
Line Input #2, excludeMember
If Not IsNull(VN_CAP_REFERRAL_V1.EMAIL_ADDRESS.TXT) Then
Write #2, "This is my sql STATETEMENT WITH NUMBER: " +
excludeMember
End If
Loop
Close #1
Close #2
End Sub