vb点虐 文件copy vb中filecopy

vb，net怎么实现拖拽文件到文本框和粘贴复制？

第一步，点击VS工具

为仙桃等地区用户提供了全套网页设计制作服务，及仙桃网站建设行业解决方案。主营业务为成都做网站、成都网站制作、仙桃网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！

请点击输入图片描述

第二步，打开后，新建一个Windows窗体应用程序

请点击输入图片描述

第三步，新建完毕后，如图所示

请点击输入图片描述

第四步，拖动文本框与按钮，如图示

请点击输入图片描述

第五步，将剪贴板复制与粘贴代码输入，如图示

请点击输入图片描述

第六步，运行程序

请点击输入图片描述

7

第七步，点击按钮，成功从剪贴板中复制与粘贴操作

请点击输入图片描述

vb中复制文件的方法是什么？

用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)

VB.NET2010 如何复制指定目录下按类型的所有文件到另一文件夹 复制后再删除原来的文件？

这段代码的问题是：

首先for each循环在files里查找文件对象，但是f变量声明为string了，无法让它获取对象；

然后file.copy的变量file没有任何声明，也没有初始化赋值等；

最后，整个for each循环里查找集合files的文件，由于初始化的循环计数器仍然按照最初设定的文件数目向后递增（文件地址），但是实际文件删除一部分，后续的文件位置就不能跟循环计数指针匹配了，所以默认为查找不到文件，将会报错。一般的做法时把复制和删除分别放在2次循环里，第一次只复制文件，第二次才去删除。