VB.NET2010 如何復制指定目錄下按類型的所有文件到另一文件夾 復制后再刪除原來的文件？

這段代碼的問題是：

我們提供的服務有：成都網(wǎng)站制作、成都網(wǎng)站設計、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認證、十堰鄖陽ssl等。為千余家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務，是有科學管理、有技術的十堰鄖陽網(wǎng)站制作公司

首先for each循環(huán)在files里查找文件對象，但是f變量聲明為string了，無法讓它獲取對象；

然后file.copy的變量file沒有任何聲明，也沒有初始化賦值等；

最后，整個for each循環(huán)里查找集合files的文件，由于初始化的循環(huán)計數(shù)器仍然按照最初設定的文件數(shù)目向后遞增（文件地址），但是實際文件刪除一部分，后續(xù)的文件位置就不能跟循環(huán)計數(shù)指針匹配了，所以默認為查找不到文件，將會報錯。一般的做法時把復制和刪除分別放在2次循環(huán)里，第一次只復制文件，第二次才去刪除。

VB.NET怎么復制文件到剪切板，不是復制文件內容！

例如，把文件"E:\新建文件夾\a.txt"復制到剪貼板

CreateObject("Shell.Application").NameSpace("E:\新建文件夾").ParseName("a.txt").InvokeVerb?"復制(C)"

用vb.net怎樣實現(xiàn)剪切，復制和粘貼功能，還望高手給予指教。

分類: 電腦/網(wǎng)絡 程序設計 其他編程語言

問題描述:

最近用vb作一程序，要求在工具蘭實現(xiàn)剪切，復制和粘貼，還有返回功能，不知如何實現(xiàn)，望高手給予指教。

解析:

很簡單的呀

例如創(chuàng)建一個textbox1控件,

String s=textbox1.getText() 就是剪切

String s1=textbox1.setText(s) 就是把剪切的內容放入textbox1,就相當于粘貼

至于復制,我不說你也會了吧?

還有問題,加我QQ: ***********

vb.net， 怎樣寫才能實現(xiàn)對文本的復制呢？

寫的不是很清楚，理解為復制文件

File.Copy 方法

Copy(string, String) 將現(xiàn)有文件(string路徑)復制到新文件(string路徑)。 不允許覆蓋同名的文件。

Copy(String, String, Boolean) 將現(xiàn)有文件(string路徑)復制到新文件(string路徑)。 允許覆蓋同名的文件。

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

用API函數(shù) 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 常數(shù)

'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 常數(shù)

'FOF_ALLOWUNDO 允許 Undo 。

Const FOF_ALLOWUNDO = H40

'FOF_NOCONFIRMATION 不顯示系統(tǒng)確認對話框。

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)