Hi, i use a MP377 panel with WIN CC Flex2007. I have made a script for move files from a directory into the MP377 to a remote PC.
I have tried with two different file system object but without success. Appear a message "20010: Error Object doesn't support this property or method: 'fs.MoveFile' on script........

the script is:
Dim fs
Set fs = CreateObject("filectl.file")
fs.MoveFile "\flash\report_pol1*.*", "\\pc084\polivalenti"
fs.close

I have also used
Set fs = CreateObject("Scripting.FileSystemObject")

anybody can give me an answer?
thanks

[Syntax]: Filesystem.FileCopy PathName, NewPathName

The Body

MoveFile: This method renames an existing file or a directory, including all its subdirectories

' We can only copy On known filename
' This is what to do
' Delete all the files In the Destination folder With the Dir Function And a “Do Until” Loop
' Copy all the files from the source folder to the destenation folder with a “Do Until” loop

Dim fso, filename, SourcePath, DestinationPath, check

'' Create the File system object to the file system of the panel
Set fso = CreateObject ("FileCtl.filesystem")

' Search for files in the destination directory and delete them.
filename = fso.Dir(Destination & "*",0)
Do Until filename = ""
fso.kill Destination & filename
filename = fso.Dir
Loop

'Search For files In the Source directory And copy them To the Destination directory
filename = fso.Dir(Source & "*",0)
Do Until filename = ""
fso.filecopy Source & filename, Destination & filename
filename = fso.Dir
Loop

' Clean object fso
Set fso = Nothing

[/code]

fso_CopyFolders

[code]

'//////////////////////////////////////////////////
'///
'/// Copy of folders with all it’s subfolders
'///
'//////////////////////////////////////////////////

' We copy al folder with all files and it’s subfolders on a windows CE screen
' Because of the Windows CE operating system there are some restrictions
' We can only: Copy files With know file names
'Delete folders when they are Empty
'Delete files

' This Is what we Do

Dim fso, pathname, i, j, dirsource, dirDestination
Dim dirarray(100)

'' 1: First cop all the files in the root folder
Call fso_CopyFilesInFolder (Source,Destination)

'' 2: Create file system object
Set fso = CreateObject ("FileCtl.filesystem")

'' 3: Search for folders (Par 16) in source area
pathname = fso.Dir(Source & "*",16)
''--- When we don’t find any folder than end of this script
If pathname = "" Then
Exit Sub
End If
''--- Allright ther are subfolders in this source folder create a array of it
i = 0
Do Until pathname = ""
dirarray (i) = pathname
i = i + 1
pathname = fso.Dir
Loop

j = 0
'' 4: Now check of the subdirectory’s that we found already exist in the destination folder
''--- If they don’t exist we Now create them.
For j = 0 To i
pathname = fso.Dir(Destination & dirarray(j))
If pathname = "" Then fso.MkDir(Destination & dirarray(j))
Next

j = 0

'' 5: All directory’s are created in the destenation folder, now we search all the subdirs with THIS
''--- routine this makes that all the files in the subdir are copied (Action 1) and that the subdir itself
''--- is also searched for subfolders and they are also copied
For j = 0 To i - 1
dirsource = Source & dirarray(j) & "\"
dirDestination = Destination & dirarray(j) & "\"
Call fso_CopyFolders (dirsource, dirDestination )
Next

'' 6: Close the file system object
Set fso = Nothing

[/code]