我們?cè)谑褂肅DR的時(shí)候一般所在的平臺(tái)就是WIN平臺(tái),而這里要匯報(bào)一下在WIN平臺(tái)下使用VBA操作文件的問(wèn)題

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

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

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

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

不使用set, 是因?yàn)榉祷刂凳且粋€(gè)布爾值 ,布爾值是一個(gè)常用單位,當(dāng)然可以不用=號(hào)和變量以及括號(hào)

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

這兩行就是在初始化窗口的時(shí)候順便把兩個(gè)輸入框輸入一些默認(rèn)的信息

總結(jié)

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

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