I've got a program that runs fine on 'English' versions of windows, but I have problems when it's run on the Chinese Version...
(Using VB6 btw)
I save some text (usually copied to the clipboard) to a file using...
Reading back the same file sometime later...Code:Public Sub addclip(Index As Integer, text As String) Dim outfile As Integer outfile = FreeFile Open path + "\Clip" + Str(Index) + ".txt" For Append As outfile Print #outfile, text Close outfile End Sub
... comes back with error 62 (Input past end of file).Code:Public Function readclip(Index As Integer) As String Dim inFile%, clip$ On Error GoTo readcliperror inFile = FreeFile Open path + "\Clip" + Str(Index) + ".txt" For Input As inFile clip = Input(LOF(inFile), #inFile) Close inFile readclip = clip Exit Function readcliperror: If Err = 53 Then 'file not found readclip = "no more clips:" + Chr(9) Exit Function End If If Err = 76 Then 'path not found readclip = "no more clips:" + Chr(9) MkDir App.path + "\clips" Exit Function End If End Function
The only difference that's apparent between the English and Chinese versions of windows is that the Chinese is using Kanji.
Is there anything I can do to solve this? I can't get hold of Chinese Windows (this is an unpaid project so I can't really afford to buy it), and searches on VB Help, Google and on here haven't turned up anything.
I don't feel catching err 62 like I have with 53 and 76 is a viable solution (unless someone can come up with a good reason why it is).
Anyone?




Reply With Quote