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 [email protected], "bwolodko" <ben.wolo...@...> 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 [email protected], "rmrsoft" <alan@> wrote:
>> >
>> > Yes, that is what I meant. I am not aware of the boolean operator
>but you could be right.
>> >
>> > --- In [email protected], 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: [email protected]
>> > > 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 [email protected] , "rmrsoft" <alan@> wrote:
>> > > >
>> > > > It's all covered in Tech Note 3e
>> > > >
>> > > >
>> > > > --- In [email protected] , "Nathan" <eeepc904@> wrote:
>> > > > >
>> > > > > I don't like to be..., but someone can help me?
>> > > > >
>> > > > > --- In [email protected] , "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
>
>
>
--
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.
