VB复制文件程序

1.PrivateSubCommand1_Click()DimresultAsLong,fileopAsSHFILEOPSTRUCTWithfileop.hwnd=Me.hwnd.wFunc=FO_COPY.pFrom="C:\PROGRAMFILES\MICROSOFTVISUALBASIC\VB.HLP"&vbNullChar&"C:\PROGRAMFILES\MICROSOFTVISUALBASIC\README.HLP"&vbNullChar&vbNullChar.pFrom="C:\*.*"&vbNullChar&vbNullChar.pTo="C:\testfolder"&vbNullChar&vbNullChar.fFlags=FOF_SIMPLEPROGRESSOrFOF_FILESONLYEndWithresult=SHFileOperation(fileop)Ifresult<>0Then'OperationfailedMsgBoxErr.LastDllErrorElseIffileop.fAnyOperationsAborted<>0ThenMsgBox"OperationFailed"EndIfEndIfEndSub模块：PublicConstFO_MOVEAsLong=&H1PublicConstFO_COPYAsLong=&H2PublicConstFO_DELETEAsLong=&H3PublicConstFO_RENAMEAsLong=&H4PublicConstFOF_MULTIDESTFILESAsLong=&H1PublicConstFOF_CONFIRMMOUSEAsLong=&H2PublicConstFOF_SILENTAsLong=&H4PublicConstFOF_RENAMEONCOLLISIONAsLong=&H8PublicConstFOF_NOCONFIRMATIONAsLong=&H10PublicConstFOF_WANTMAPPINGHANDLEAsLong=&H20PublicConstFOF_CREATEPROGRESSDLGAsLong=&H0PublicConstFOF_ALLOWUNDOAsLong=&H40PublicConstFOF_FILESONLYAsLong=&H80PublicConstFOF_SIMPLEPROGRESSAsLong=&H100PublicConstFOF_NOCONFIRMMKDIRAsLong=&H200TypeSHFILEOPSTRUCThwndAsLongwFuncAsLongpFromAsStringpToAsStringfFlagsAsLongfAnyOperationsAbortedAsLonghNameMappingsAsLonglpszProgressTitleAsStringEndTypeDeclareFunctionSHFileOperationLib"Shell32.dll"Alias"SHFileOperationA"(lpFileOpAsSHFILEOPSTRUCT)AsLong2.放一种按钮command1复制如下代码即可Private

Declare

Function

GetWindowsDirectory

Lib

"kernel32"

Alias

"GetWindowsDirectoryA"

(ByVal

lpbuffer

As

String,

ByVal

nSize

As

Long)

As

LongPrivate

Declare

Function

GetSystemDirectory

Lib

"kernel32"

Alias

"GetSystemDirectoryA"

(ByVal

lpbuffer

As

String,

ByVal

nSize

As

Long)

As

LongDim

SYSDIR,

WINDIR

As

StringPrivate

Sub

Command1_Click()FileCopy

App.Path

+

"\"

+

"abc.exe",

SYSDIREnd

SubPrivate

Sub

Form_Load()Dim

dir

As

String

*

255Dim

a,

b

As

Integera

=

GetSystemDirectory(dir,

255)dir

=

Left(dir,

a)a

=

Len(dir)b

=

1Do

While

b

<=

aIf

Mid(dir,

b,

1)

=

"

"

Then

Exit

Dob

=

b

+

1LoopSYSDIR

=

Mid(dir,

1,

b

-

1)

'目前操作系统的Windows系统目录System途径End

Sub3.新建文本文献，粘贴regaddHKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion