- ©«¤l
- 34
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 56
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS10
- ³nÅ骩¥»
- office 2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-4-17
- ³Ì«áµn¿ý
- 2020-7-16
|
»s«ü©w CÀɦ즳ÀɦW¤§ÀÉ®×
DEAR ¤j¤j..
½Ð±Ð,¦p¦ó§ï¦¨, C1Äæ¦ì..¤@ª½©¹¤U,
PS: ½Æ»s«ü©w CÀɦ즳ÀɦW¤§ÀÉ®×
Sub file_move()
Set fds = CreateObject("Scripting.filesystemobject")
fd = [a1]
fo = [b1]
fa=[c1].value ---> ?
fs = Dir(fd & fa)
Do Until fs = "" --->??
If fds.FileExists(fo & fs) Then
MsgBox "¥Ø¼Ð¸ê®Æ§¨,¦³¨Ó·½¤§¦PÀɦWÀÉ®×,½Ð½T»{", vbOKOnly, "¿ù»~°T®§"
Exit Sub
End If
fds.copyfile fd & fs, fo & fs
fs = Dir
Loop
End Sub
¦A³Â·Ð... |
|