file-io - 使用 NSBasic/CE 7.0 复制文件

Question

我正在使用NSBasic/CE 7.0，我需要复制一个文件，但我不知道如何使用这个程序进行复制，但当时我已经有了这个：

AddObject "cecomdlg.commondialog.1", "ComSvDlg", 0, 0, 0, 0

Sub saveDialog()
  ComSvDlg.CancelError = 0
  ComSvDlg.DialogTitle = "Copy"
  ComSvDlg.Filter = "All Files|*.*"
  ComSvDlg.ShowSave
  If Err.Number = 0 Then
    txtFileName = ComSvDlg.FileName
    MsgBox txtFileName
    ElseIf Err.Number = 32755 Then
      MsgBox "Canceled"
  End If
  KillFocus
End Sub

Sub mnuSave_Click
  saveDialog
  txtOutput.Text = ComSvDlg.FileName
End Sub

但最重要的之一（副本）我不知道该怎么做。你能帮我把文件从复制\test.txt到ComSvDlg.Filename吗？

Answer 1

根据 NS Basic/CE 网站上的信息，它包括以下提供文件系统管理功能的对象：

• FileSystem
• newObjects.utilctls.SFMain（需要NewObjectsPack1.dll库）

要复制文件，您可以使用FileSystem.FileCopy方法或SFMain.CopyFile方法。代码应如下所示（未测试，因为我没有 NS Basic）：

''# Using the FileSystem object
AddObject "FileSystem", "FS"
FS.FileCopy "\test.txt", ComSvDlg.FileName

''# Using the SFMain object
AddObject "newObjects.utilctls.SFMain", "FS"
FS.CopyFile "\test.txt", ComSvDlg.FileName