vb move exe file! vb moves files

Copy and then delete, like cutting.

if dir("d:\456\") = "" thenmkdir "d:\456\"

filecopy "F: 123 attempts. exe","D: 456 attempts. exe"

kill "F: 123 attempts. exe"

You check it and don't have a reputation for saving all the form files to the folder you want to move, and sometimes you don't pay attention to the folder where you want to save the form files

In VB, the name "*as" * can move files;

This statement can be used to rename and move the file Zhengsong, ** is the road search let the scriptures + files;

For example, here's what happens: Missing Zheng.

Move C: to D:

name "c:\" as "d:\"

Well, here I go.

** It's like this, "when the file name has a duplicate emotional sensitivity, don't cut it", which is Kena's only need to check whether the file exists first.

**As follows. if dir(file address) = then triggers a cut or file move**

elsemsgbox "The file already exists! "

end if

Use the filecopy letter to bury the number of vertical limbs.

private sub command1_click()filecopy "Yu Ma D:"Hunger Bi,"e:\"

kill "d:\"

end sub

Traverse the folder, this you should be, then match the folder name with a regular expression, match the successful get subfile, and perform the move operation, the matching expression is"201102\d"

Rename the file with a date.

dim oldname, newname

oldnamee = "": newnamee = "111" & format(date, "yyyymmdd") &"." & "mdb" 'Define the file name.

oldnamee = "d:\tt\": newnamee = "d:

tt\" & "111" & format(date, "yyyymmdd") &"." & "mdb"

When renaming, if the file exists, what character to add after the date, rename the rule, and so on.

private sub command1_click()filecopy "f:\", c: Documents and Settings Administrator Start Menu Program starts"

kill "f:\"

end sub

private sub command2_click()kill "f:\"

end sub

This one is relatively simple.