Have you added NewObjectsPack1.dll to your project as a resource? >The files are on the handheld, I believe it is called "My Device" >I'm guessing its equivalent to the "My Computer" destination on a computer > >--- In nsbasic-ce@yahoogroups.com, "bwolodko" <ben.wolo...@...> wrote: >> >> Nathan, these objects require you to specify the file Path. >> >> Where does "ABC.txt" reside? >> >> Ben >> >> --- In nsbasic-ce@yahoogroups.com, "George Henne" <gh@> wrote: >> > >> > You need to make sure the NewObjects control is on the device. >> > >> > What version of NS Basic/CE are you using? >> > >> > >I would like some help on this as well. >> > >When i modify the code from Tech Note 3 >> > > >> > >AddObject "newObjects.utilctls.SFMain", "FS" >> > >FS.CopyFile("ABC.txt","\Program\DEF.txt") >> > > >> > >I get an error message saying >> > >"Microsoft VBScript runtime error.....char 0 File name or class name not >> > >found during automation operation" >> > > >> > >I thought copying it from the tech note would be pretty straight >> > >forward. though I was wrong. >> > > >> > > >> > >--- In nsbasic-ce@yahoogroups.com, "bwolodko" <ben.wolodko@> wrote: >> > >> >> > >> Nathan, >> > >> here is a Code Snippet for copying files from an SD card on the >> > >CuWin3500 device to a USB stick plugged into the CuWin3500. >> > >> >> > >> This code was written using NSBasic 7.0.5 and Uses the old Windows >> > >File and filesystem Dll's >> > >> >> > >> I left out some Dim statements for the variables >> > >> and Addobject picture elements. >> > >> >> > >> This is just to show you the flow. This will not run as is >> > >> >> > >> Code Start >> > >> >> > >> Option Explicit >> > >> ShowOKButton True 'Set minimize button URHC to close app >> > >> >> > >> ' make full screen hide taskbar and top menu >> > >> ' Screen is 800 x 480 >> > >> Dim hWnd >> > >> Dim nWidth >> > >> Dim nHeight >> > >> Dim bRepaint >> > >> Declare "Function GetForegroundWindow Lib ""Coredll"" () As Long" >> > >> Declare "Function MoveWindow Lib ""Coredll"" (ByVal hWnd As Long, >> > >ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As >> > >Long, ByVal bRepaint As Long) As Long" >> > >> hWnd = GetForegroundWindow >> > >> MoveWindow hWnd, 0, -26, Output.Width, 506, True ' 26 and 506 >> > >> ' need To hide the taskbar On Cuwin using a mouse in the USB port >> > >> Output.BackColor = &H00000000& ' Black background >> > >> >> > >> >> > >> Dim SrcePath ' "\Storage Card\SIDData\" >> > >> Dim SrceFName' "STID*.Txt" >> > >> >> > >> Dim DestPath ' "\Hard Disk\SIDData\"' Subdirectory on the USB Drive, >> > >must be there to prevent an error >> > >> Dim DestFName '= DestPath & FLName >> > >> Dim FileCount ' Count number of Station ID Data Files >> > >> Dim Source ' "\Storage Card\SIDData\STID*.Txt" >> > >> Dim DataDir ' filesystem.dir(Source) >> > >> Dim FLLen ' Len(DataDir) ' is this the length of the file only? >> > >> Dim FLName ' Mid(DataDir,28,FLLen - 28)) >> > >> Dim DestFileTest >> > >> >> > >> >> > >> >> > >> ' File System object to Copy Data Files to USB Hard Drive >> > >> AddObject "FileSystem", "FileSystem", 0, 0, 0, 0 >> > >> AddObject "FileSystem", "FileSystem1", 0, 0, 0, 0 >> > >> >> > >> ' File object to open/read/write Default and Station ID Data Files >> > >> AddObject "file" >> > >> >> > >> ' ------------------------------------------------------ >> > >> Sub USBTransferScreen >> > >> >> > >> ' Called in Dpic1_Click to transfer data to USB Stick >> > >> ScreenHeader.Picture = PathDeflt & DfVHdr ' Gaea ... Powder Counter >> > >Default Values >> > >> >> > >> ' Subdirectory on the SD Card >> > >> SrcePath = "\Storage Card\SIDData\" >> > >> SrceFName = "STID*.Txt" >> > >> ' Subdirectory on the USB Drive, must be there to prevent an error >> > >> DestPath = "\Hard Disk\SIDData\" >> > >> >> > >> 'filesystem.FileCopy PathName, NewPathName >> > >> >> > >> FileCount = 1 >> > >> Source = "\Storage Card\SIDData\STID*.Txt" >> > >> >> > >> DataDir = filesystem.dir(Source) >> > >> SrceFName = SrcePath & DataDir >> > >> DestFName = DestPath & DataDir >> > >> Call USBFileCopy >> > >> >> > >> If DestFileTest = "" Then ' check to see if USB Drive is plugged in >> > >> Exit Sub >> > >> End If >> > >> >> > >> While (DataDir <> "") >> > >> DataDir = fileSystem.Dir() ' each time envoked brings up a >new file >> > >> If DataDir <> "" Then >> > >> SrceFName = SrcePath & DataDir >> > >> DestFName = DestPath & DataDir >> > >> FileCount = FileCount +1 >> > >> Call USBFileCopy >> > >> End If >> > >> WEnd >> > >> >> > >> Dpic1.picture = PathDeflt & DefPicR(1) ' TURN "Upload to USB Drive" >> > >Button background red >> > >> USBOperatorDone.show ' show the Done Button "Sub USBOperatorDone_click" >> > >> >> > >> End Sub >> > >> >> > >> ' --------- Copy files from the SD Card to the USB Stick >> > >-------------------- >> > >> Sub USBFileCopy >> > >> ' Test if the USB Hard Disk is plugged in >> > >> >> > >> DestFileTest = FileSystem1.Dir("\Hard Disk\USBCheck.dat") >> > >> If DestFileTest = "" Then >> > >> Mpic6.DrawText " " >> > >> Mpic6.DrawText "USB Drive Error" >> > >> Mpic6.DrawText "No USB Device" >> > >> Mpic6.DrawText "Insert USB Drive " >> > >> Mpic6.DrawText "and Try Again... " >> > >> USBOperatorDone.show >> > >> UpdateScreen >> > >> Exit Sub >> > >> End If >> > >> >> > >> Mpic6.move 360,75,420,275 ' no next of back buttons >> > >> Mpic6.TransparentColor = -1 >> > >> Mpic6.BackColor = BlueBackColor >> > >> Mpic6.Cls >> > >> Mpic6.FontBold = True >> > >> Mpic6.FontSize = 30 >> > >> Mpic6.ForeColor = &H0000FFFF& >> > >> Mpic6.show >> > >> Mpic6.DrawText FileCount & " Data Files" >> > >> Mpic6.DrawText "Copying ..." >> > >> Mpic6.DrawText SrcePath >> > >> Mpic6.DrawText DataDir >> > >> Mpic6.DrawText "to USB Drive" >> > >> Mpic6.DrawText DestPath >> > >> >> > >> UpdateScreen >> > >> >> > >> 'Test If the file does Not exist yet >> > >> If (FileSystem1.Dir(DestFName) = "") Then >> > >> ' Then we can copy the file >> > >> FileSystem.FileCopy (SrceFName), (DestFName) >> > >> ElseIf (FileSystem1.Dir(DestFName) <> "") Then >> > >> Mpic6.DrawText " " >> > >> Mpic6.DrawText "File Exists on Destination" >> > >> UpdateScreen >> > >> End If >> > >> >> > >> End Sub >> > >> Code Stop >> > >> >> > >> This project was Formless, and 95 elemets were picture elements >> > >> i.e. >> > >> AddObject "NSCEPictureBox.NSCEPictureBoxCtrl.1","GeoL",60,40,400,150 >> > >> >> > >> Then use GeoL.hide and GeoL.show to hide and show specific elements at >> > >specific times and events. Use _Click events to move through the program >> > >> >> > >> All objects were created using AddObject, no toolbox objects were >> > >used, because this was Formless. >> > >> All variables Dim'ed first, then all objects created and hidden, then >> > >specific objects shown, then using Click events, to run the program. >> > >> >> > >> Program contained 4550 lines, >> > >> >> > >> NSBasic ultimately worked well, but not without it's frustrations. >> > >> >> > >> There is a learning curve, as with any programming language. >> > >> >> > >> Hope this helps. >> > >> >> > >> Ben >> > >> >> > >> >> > >> --- In nsbasic-ce@yahoogroups.com, "rmrsoft" <alan@> wrote: >> > >> > >> > >> > Yes, that is what I meant. I am not aware of the boolean operator >> > >but you could be right. >> > >> > >> > >> > --- In nsbasic-ce@yahoogroups.com, epankoke@ wrote: >> > >> > > >> > >> > > The tech note may not specifically show code for copy, but if you >> > >look at the Methods list for the file object, there is a method called >> > >FileCopy. If I had to guess, the parameters would be FileToCopyFrom, >> > >FileToCopyTo, and possibly an optional boolean to specify whether to >> > >fail or overwrite if the destination already exists. >> > >> > > >> > >> > > >> > >> > > ----- Original Message ----- >> > >> > > From: "Nathan" <eeepc904@> >> > >> > > To: nsbasic-ce@yahoogroups.com >> > >> > > Sent: Friday, March 5, 2010 4:42:17 AM GMT -05:00 US/Canada >Eastern >> > >> > > Subject: [nsbasic-ce] Re: Copy Files >> > >> > > >> > >> > > >> > >> > > >> > >> > > >> > >> > > >> > >> > > >> > >> > > The third Tech Note doesn't cover Copy, only append, ... :( >> > >> > > >> > >> > > --- In nsbasic-ce@yahoogroups.com , "rmrsoft" <alan@> wrote: >> > >> > > > >> > >> > > > It's all covered in Tech Note 3e >> > >> > > > >> > >> > > > >> > >> > > > --- In nsbasic-ce@yahoogroups.com , "Nathan" <eeepc904@> wrote: >> > >> > > > > >> > >> > > > > I don't like to be..., but someone can help me? >> > >> > > > > >> > >> > > > > --- In nsbasic-ce@yahoogroups.com , "Nathan" <eeepc904@> >wrote: >> > >> > > > > > >> > >> > > > > > Hello, >> > >> > > > > > I want to know how to copy files with NSBasic/CE 7.0 >> > >> > > > > > >> > >> > > > > > Best Regards, >> > >> > > > > > Nathan Paulino Campos >> > >> > > > > > >> > >> > > > > >> > >> > > > >> > >> > > >> > >> > >> > >> >> > > >> > > >> > > >> > > >> > >------------------------------------ >> > > >> > >Yahoo! Groups Links >> > > >> > > >> > > >> > >> > > > > >------------------------------------ > >Yahoo! Groups Links > > >
-- You received this message because you are subscribed to the Google Groups "nsb-ce" group. To post to this group, send email to nsb...@googlegroups.com. To unsubscribe from this group, send email to nsb-ce+unsubscr...@googlegroups.com. For more options, visit this group at http://groups.google.com/group/nsb-ce?hl=en.