将文件导出到另一个目录

Question

我的应用程序正在生成一个csv文件，当用户单击导出按钮时，我想将其移动到另一个目录。

我的VBScript代码是：

Sub ExportTocsv()
    Dim oDLG
    Set fso  = CreateObject("Scripting.FileSystemObject")
    Set oDLG=CreateObject("MSComDlg.CommonDialog")  
    Set file = fso.OpenTextFile("results.csv", 1)
        text = file.ReadAll
        file.Close

    With oDLG
        .DialogTitle="SaveAs"
        .Filter="Comma Separated Version|*.csv;|Text Files|*.txt|All files|*.*"
        .MaxFileSize=255
        .ShowSave
        If .FileName<>"" Then
            FileName=.FileName
            Set objOutFile = fso.CreateTextFile(FileName,True)
            objOutFile.write(text)
            objOutFile.close
        End If
    End With
    Set oDLG=Nothing
End Sub

它给我一个错误消息“ActiveX组件无法创建对象”。这是什么解决方案或解决方法？

我无法在我的环境中安装任何东西。