vb中我想把一个文件保存为指定的名字

来源：百度知道 编辑：UC知道 时间：2024/05/15 18:38:59
大家帮我分析一下
我想实现把jieguo.text的东西保存为xm.text中指定的名字的文件
如：把jieguo.text写入xm.doc后，我怎么把他的名字改为xm.text中指定的文件名，如xm.text中为”张三” 怎么把xm.doc改为张三
xm.text是可以输入的
Private Sub Command4_Click()
Dim ddd As String
Open "d:\xm.doc" For Append As #1
ddd = jieguo.Text
Write #1, ddd
Close #1
Name "d:\xm.doc" As "d:\张三.doc？"
End Sub
xm.text中是随意输入的 "张三" 是我假设的
Name "d:\xm.doc" As "d:\张三.doc" 就是直接改为 张三.doc

Private Sub Command4_Click()
Dim ddd As String
Open "d:\xm.doc" For Append As #1
ddd = jieguo.Text
Write #1, ddd
Close #1
'Name "d:\xm.doc" As "d:\张三.doc？"
shell "cmd /c ren d:\xm.doc d:\" & xm.text,vbhide
End Subd

Private Sub Command4_Click()
DIM A AS STRING
A="D:\" & jieguo.Text & ".DOC"
Open A For Append As #1
PRINT #1, jieguo.Text
Close #1
End Subd