Yes, the folder does exist. There are several other items residing there as well. I'll try changing the file2 name and see if that got it confused.
--- In [email protected], "chris_kenworthy" <chrisk...@...> wrote: > > Does the path "\Documents and Settings\AcuTrack\" exist on the device > already? If it doesn't, then the openfile call will probably fail. > > Also, this might not cause an issue with creating the file, but I can see the > newobjects getting somewhat confused in that you're setting file2 to be a > child of itself. Would make more sense to do the original addObject line as > file1, and then set file2 = file1.openfile(...) > > --- In [email protected], "georgeewalters" <gwalters@> wrote: > > > > Does anyone see why this code does not create a file? I was expecting > > StockCount.txt to exist even if nothing was written to it. MsgBox said > > count was 1 and list was not empty. I've no idea why the file does not > > exist. > > > > AddObject("newObjects.utilctls.SFMain"), "file2" > > > > On Error Resume Next > > Set file2 = file2.OpenFile ("\Documents and > > Settings\AcuTrack\StockCount.txt", 1) > > If err.Number > 0 Then > > MsgBox("Can't open StockCount.txt for save " & err.Description) > > On Error Goto 0 > > Exit Sub > > End If > > MsgBox (count) > > For i = 1 To count > > For j = 0 to 3 > > tmp = tmp & list(i,j) > > Next > > file2.Write tmp > > MsgBox (tmp) > > Next > > > > file2.Close > > > > MsgBox("File saved") > > ItemNbr.SetFocus > > > -- You received this message because you are subscribed to the Google Groups "nsb-ce" group. To post to this group, send email to [email protected]. To unsubscribe from this group, send email to [email protected]. For more options, visit this group at http://groups.google.com/group/nsb-ce?hl=en.
