我們在使用CDR的時候一般所在的平臺就是WIN平臺,而這里要匯報一下在WIN平臺下使用VBA操作文件的問題

• 我們先把界面拉出來
  
• 上一張userform1代碼的添加
  
• 這里只貼出經(jīng)過了修改的代碼片段吧 稍微說一下textbox5就是那個最長的輸入框, textbox6就是那個窄一點的輸入框用來輸入文件名的

Private Sub CommandButton6_chuangJianWenJian_Click()If UserForm1.TextBox5 <> "" ThenDim myNewFile As String: myNewFile = UserForm1.TextBox5.Value & "\" & UserForm1.TextBox6_wenJianMing & ".cdr"Set fso = CreateObject("Scripting.FileSystemObject") '創(chuàng)建文件需要使用Scripting.FileSystemObject對象Set myTxt = fso.CreateTextFile(FileName:=myNewFile, Overwrite:=True) '使用CreateTextFile創(chuàng)建文件End If End SubPrivate Sub CommandButton7_xuanZeLuJin_Click()UserForm1.TextBox5.Value = CorelDRAW.CorelScriptTools.GetFolder("D:\") End SubPrivate Sub CommandButton8_yiDongWenJian_Click()Dim oldFilePath As String: oldFilePath = CorelDRAW.ActiveDocument.FullFileNameDim oldFileName As String: oldFileName = CorelDRAW.ActiveDocument.FileNameCorelDRAW.ActiveDocument.Closeaaa = CorelDRAW.CorelScriptTools.Rename(oldFilePath, UserForm1.TextBox5 & "\" & oldFileName, 0)End SubPrivate Sub UserForm_Initialize()Me.ComboBox1.AddItem ("300")Me.ComboBox1.AddItem ("400")Me.ComboBox1.AddItem ("500")Me.ComboBox1.AddItem ("600")Me.ComboBox1.AddItem ("100")Me.TextBox1.Value = 3Me.TextBox2.Value = 2Me.TextBox5.Value = "C:\"Me.TextBox6_wenJianMing.Value = "新建文件名" End Sub

• 上演示效果
  
  CommandButton6_chuangJianWenJian_Click() 這個就是創(chuàng)建空的文件按鈕
  先判定了一下TextBox5是否是空值,也就是路徑值,如果是空的就不會有執(zhí)行的效果
  Dim myNewFile As String: myNewFile = UserForm1.TextBox5.Value & "\" & UserForm1.TextBox6_wenJianMing & ".cdr"這一行是先把新文件名拼接好,注意反斜杠的使用,在文件名和路徑中間是要有這個東西隔開的
  CreateObject("Scripting.FileSystemObject")這個是腳本中的,文件系統(tǒng)對象,可以用這個對象來操作系統(tǒng)文件的新建, CreateTextFile就是這個腳本中的一個功能函數(shù),FileName就是文件名(包含路徑的),Overwrite表示是否打開覆蓋重寫功能

CommandButton7_xuanZeLuJin_Click()這個就是選擇路徑按鈕
我們直接給UserForm1.TextBox5.Value窗口的第5個輸入框賦值, GetFolder就是腳本工具CorelScriptTools中的一個路徑彈窗,用來獲取我們選擇路徑,后面的括號內(nèi)是默認顯示的路徑,可以隨便填寫一下已知的路徑

CommandButton8_yiDongWenJian_Click()這個就是關(guān)閉當前文檔并移動至該路徑這個按鈕的點擊功能了
先確定好文件名(包含全路徑)也就是FullFileName,然后再確定一下文件名(包含后綴但不包含路徑的)FileName, 然后用自定義的兩個容器String字符串來儲存
CorelDRAW.ActiveDocument.Close關(guān)閉當前活動的文檔
最后就是移動文件了
aaa = CorelDRAW.CorelScriptTools.Rename(oldFilePath, UserForm1.TextBox5 & "\" & oldFileName, 0)

不使用set, 是因為返回值是一個布爾值 ,布爾值是一個常用單位,當然可以不用=號和變量以及括號

Me.TextBox5.Value = "C:\" Me.TextBox6_wenJianMing.Value = "新建文件名"

這兩行就是在初始化窗口的時候順便把兩個輸入框輸入一些默認的信息

總結(jié)

以上是生活随笔為你收集整理的CorelDRAWX4的VBA插件开发(二十二)选择路径创建文件和移动文件的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。