bad filename error :( (vb6)

Code:

---

Dim tmp As Variant
Dim Users As Integer
Dim strLineValue As String
Dim strValueToFind As String

Sub CreateFileAndWrite()

Users = FreeFile

'Open the document to write to. Look in the documentation
'at the Open statement for more information and different modes.
Open "\\ict-server\stud_redir\davidmica\dtop\personal PR\Users.txt" For Output As Users

'Use the print or Write statement to add data to the file.
'Again, the documentation will give you more info.
Print #Users, tmp


'Close the file.
Close #Users

End Sub

Sub WriteInFile()

Users = FreeFile

'Set the string you want to find in the file.
strValueToFind = tmp

Open "\\ict-server\stud_redir\davidmica\dtop\personal PR\Users.txt" For Input As Users

'Read each line until either the string has been
'found or you have reached the end of the file.
Do Until EOF(Users)

    Line Input #Users, strLineValue
   
    If InStr(strLineValue, strValueToFind) > 0 Then
       
        MsgBox "User you Selected Already Exists, Sry"
       
        'Close the file and exit this loop
        Close #Users
        Exit Do
       
    Else
   
   
       
    End If
   
Loop

Close #Users

End Sub

Private Sub cmdCheckUser_Click()
Set Myfso = CreateObject("Scripting.FileSystemObject")

tmp = txtUser.Text

If (tmp = "") Then

MsgBox "Please Enter A Username Before You Click Check, Thanks", , "No Username Found!"

Else

MsgBox "Please Wait... while checking your username availability", , "Please Wait"

    If (Myfso.FileExists("\\ict-server\stud_redir\davidmica\dtop\personal PR\Users.txt")) Then
   
    MsgBox "hello"
   
    Call WriteInFile
   
    Else
   
    Call CreateFileAndWrite
   
    End If
End If

End Sub

---

it is givving me bad filename error

this is not a valid path

"\\ict-server\stud_redir\davidmica\dtop\personal PR\Users.txt"

Quote:

---

Originally Posted by user name

this is not a valid path

"\\ict-server\stud_redir\davidmica\dtop\personal PR\Users.txt"

---

huh? it has been created with that path!

It's a long code. Which line gives error?

Quote:

---

Originally Posted by Pradeep1210

It's a long code. Which line gives error?

---

it is trying to check if the users already exisits or not in the file.txt if it is not in the file then it will be written in the file.txt the new user

Which line is the error on? Is it a permission error?

this is not your original problem, but if you want to add a new user to the file, better to open file for append.

if you only want to keep the new user then open for output is fine.

maybe you should destroy your FSO object before trying to open the file

pete

ok, let me try it out!

Thanks

Code:

---

Sub CheckUserAvailability()

intFileNumber = FreeFile

'Set the string you want to find in the file.
strValueToFind = tmp

Open "\\ict-server\stud_redir\davidmica\dtop\personal PR\Users.txt" For Random Access Read As intFileNumber

'Read each line until either the string has been
'found or you have reached the end of the file.
Do Until EOF(intFileNumber)

    Line Input #intFileNumber, strValueToFind
   
    If InStr(intFileNumber, strValueToFind) > 0 Then
       
        MsgBox "Found the string"
       
        'Close the file and exit this loop
        Close #intFileNumber
       
        Exit Do
       
    End If
   
Loop

Close #intFileNumber

End Sub

---

it's not working well.. i am trying to see if a user already exists in a file.txt and it's not working!

No, I guess it isn't working.

'Set the string you want to find in the file.
strValueToFind = tmp

'strValueToFind will be replaced with a line from the file, so it looses it's original value.
Line Input #intFileNumber, strValueToFind

' this line doesn't make any sense, you check if the line you just read from the file can be found in the filenumber (probably just 1)
If InStr(intFileNumber, strValueToFind) > 0 Then

random won't work the way you are doing it open for input

Line Input #intFileNumber, strFromFile

If InStr(strFromFile, strValueToFind) > 0 Then

try that

pete

thabks.. i will check them out and tks everyone who is helping me ;)