vb中复制文件

第一个问题:commondialog在那里?右键部件中没有!第二:复制文件时说我路径不存在代码如下FileCopy"\file\战斗保存.txt","d:\"(file文... 第一个问题:commondialog在那里?右键 部件中没有!
第二:复制文件时说我路径不存在
代码如下
FileCopy "\file\战斗保存.txt", "d:\"
(file文件夹存在)
展开
 我来答
time岚忆
2018-03-31 · TA获得超过4215个赞
知道小有建树答主
回答量:129
采纳率:100%
帮助的人:4.9万
展开全部

用API函数 SHFileOperation的方法。

以下是使用SHFileOperation删除复制移动文件的例子,可以复制文件夹

Private Type SHFILEOPSTRUCT

hwnd As Long

wFunc As Long

pFrom As String

pTo As String

fFlags As Integer

fAnyOperationsAborted As Long

hNameMappings As Long

lpszProgressTitle As String '只有在 FOF_SIMPLEPROGRESS 时用

End Type

Private Declare Function SHFileOperation Lib _

"shell32.dll" Alias "SHFileOperationA" (lpFileOp _

As SHFILEOPSTRUCT) As Long

'wFunc 常数

'FO_COPY 把 pFrom 文件拷贝到 pTo。

Const FO_COPY = &H2

'FO_DELETE 删除 pFrom 中的文件(pTo 忽略)。

Const FO_DELETE = &H3

'FO_MOVE 把 pFrom 文件移动到 pTo。

Const FO_MOVE = &H1

'fFlag 常数

'FOF_ALLOWUNDO 允许 Undo 。

Const FOF_ALLOWUNDO = &H40

'FOF_NOCONFIRMATION 不显示系统确认对话框。

Const FOF_NOCONFIRMATION = &H10

'FOF_NOCONFIRMMKDIR 不提示是否新建目录。

Const FOF_NOCONFIRMMKDIR = &H200

'FOF_SILENT 不显示进度对话框

Const FOF_SILENT = &H4

Private Sub Command1_Click()

'例子:

Dim SHFileOp As SHFILEOPSTRUCT

' 拷贝

SHFileOp.wFunc = FO_COPY

SHFileOp.pFrom = "d:\MASM611"

SHFileOp.pTo = "c:\MASM611"

SHFileOp.fFlags = FOF_NOCONFIRMMKDIR

Call SHFileOperation(SHFileOp)

End Sub

或者用命令行

shell "cmd.exe /c xcopy "+chr(34)+"C:\新建文件夹 c:\aa /q /e" +chr(34)

zdingyun
推荐于2017-10-06 · 知道合伙人软件行家
zdingyun
知道合伙人软件行家
采纳数:15429 获赞数:48176
1982年上海业余工业大学化工系毕业 现退休

向TA提问 私信TA
展开全部

vb中复制文件用FileCopy 语句。

FileCopy 语句

复制一个文件。

语法

FileCopy source, destination

FileCopy 语句示例:

Private Sub Command1_Click()
    Dim SourceFile, DestinationFile
    SourceFile = "c:\10.txt"   ' 指定源文件路径和名。
    DestinationFile = "D:\DESTFILE"   ' 指定目标路径和文件名。
    FileCopy SourceFile, DestinationFile   ' 将源文件的内容复制到目的文件中。
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
abcnyzay
推荐于2017-09-28 · TA获得超过1377个赞
知道小有建树答主
回答量:928
采纳率:100%
帮助的人:1036万
展开全部
第一个问题:
commondialog的控件名为Microsoft Common Dialog Control 6.0,文件名为comdlg32.ocx,如果没有,可在你的机器上搜索comdlg32.ocx,如果还没有,可到网上下载,放到Windows\system32目录下(不是必须,但放到该目录下VB可直接找到)。
第二个问题:
FileCopy 源文件名,目标文件名
其中源文件名为全路径,含盘符、目录,如:
FileCopy Replace(App.Path & "\file\战斗保存.txt", "\\", "\"), "d:\"
FileCopy "D:\file\战斗保存.txt", "d:\"
加上Replace是为了防止app.path为根目录,如果app.path为C:\,则App.Path & "\file\战斗保存.txt"为C:\\file\战斗保存.txt,俩\\,将出错。
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2011-08-02
展开全部
在菜单栏 "工程"-->"部件" 找到并勾选 Microsoft Common Dialog Control x.0

FileCopy App.path & "\file\战斗保存.txt", "d:\"
追问
没有啊
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
文茂江
2011-08-02 · 超过39用户采纳过TA的回答
知道小有建树答主
回答量:134
采纳率:0%
帮助的人:76万
展开全部
1、在菜单栏中的 工程——部件 中添加
2、FileCopy("源文件名","目标文件名")
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式