小弟最近使用HMI工具箱集成的功能件，该文件浏览视图中打开文件新建文件都正常，但复制、剪切和粘贴无法实现。请问谁有使用过这个功能件的经验可以帮帮忙看看，谢谢！

HMI 项目工具箱 

https://support.industry.siemens.com/cs/cn/zh/view/106226404

附一段 复制功能的VBS脚本代码。

Windows CE / Panel based

If SmartTags("CE") Then

  If sender = 1 Then 'button "copy" pressed

    If SmartTags("IsFolder_"&SmartTags("fileChosen")) = 0 Then

      SmartTags("bufferFile") = SmartTags("File_"&SmartTags("fileChosen"))

      SmartTags("bufferFolder") = SmartTags("Folder")

      SmartTags("bufferCopyCut") = True

      SmartTags("bufferIsFolder") = SmartTags("isFolder_"&SmartTags("fileChosen"))

      SmartTags("FEStatus") = "File " & SmartTags("bufferFile") & " copied"

    Else

      SmartTags("FEStatus") = "Cannot copy folder"

    End If

  ElseIf sender = 3 Then 'button "cut" is pressed

    SmartTags("bufferFile") = SmartTags("File_"&SmartTags("fileChosen"))

    SmartTags("bufferFolder") = SmartTags("Folder")

    SmartTags("bufferCopyCut") = False 

    SmartTags("bufferIsFolder") = SmartTags("isFolder_"&SmartTags("fileChosen"))

    SmartTags("FEStatus") = "File " & SmartTags("bufferFile") & " cut"

  ElseIf sender = 2 Then 'button "move" pressed

    singleFile = Replace (SmartTags("bufferFile"),  SmartTags("bufferFolder"), "")

    newpath = SmartTags("Folder") & singleFile  

    If SmartTags("bufferCopyCut") = False Then   

      If SmartTags("bufferIsFolder") <> 0 Then

        Set fs = CreateObject("FileCtl.FileSystem")

        fs.MoveFile SmartTags("bufferFile"), newpath

      Else

        Set fs = CreateObject("FileCtl.FileSystem")

        fs.FileCopy SmartTags("bufferFile"), newpath

        fs.kill SmartTags("bufferFile")

      End If

    Else

      Set fs = CreateObject("FileCtl.FileSystem")

      fs.FileCopy SmartTags("bufferFile"), newpath

    End If 

    SmartTags("FEStatus") = "File " & SmartTags("bufferFile") & " pasted"

    ReadFilesOfFolder SmartTags("Folder")

    WriteFilePropertiesToTags SmartTags("index")

  End If