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
> > > > > >
> > > > >
> > > >
> > >
> >
>
--
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.
