Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VB¸´ÖÆÎļþ¼ÐµÄ·½·¨(·ÇFSO)

http://www.webuc.net/ddf3/archive/2005/08/25/6142.aspx
²»ÓÃFSOµÄ¸´ÖÆÎļþ¼ÐµÃ·½·¨£¿
ÓÃ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
'Àý×Ó£º
Dim SHFileOp As SHFILEOPSTRUCT
' ɾ³ý
SHFileOp.wFunc = FO_DELETE
SHFileOp.pfrom = "c:\config.old" + Chr(0)
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
Call SHFileOperation(SHFileOp)
' ɾ³ý¶à¸öÎļþ
SHFileOp.wFunc = FO_DELETE
SHFileOp.pfrom = "c:\config.old" +Chr(0) + "c:\autoexec.old"+Chr(0)
SHFileOp.fFlags = FOF_ALLOWUNDO
Call SHFileOperation(SHFileOp)
' ¿½±´
SHFileOp.wFunc = FO_COPY
SHFileOp.pfrom = "c:\t"
SHFileOp.pTo = "d:\"
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
Call SHFileOperation(SHFileOp)
' ÒÆ¶¯
SHFileOp.wFunc = FO_MOVE
SHFileOp.pfrom = "c:\config.old" + Chr(0)
SHFileOp.pTo = "d:\t"
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
Call SHFileOperation(SHFileOp)
»òÕß
shell "cmd.exe /c xcopy "+chr(34)+"C:\н¨Îļþ¼Ð c:\aa /q /e" +chr(34)


Ïà¹ØÎĵµ£º

VB ¼òµ¥¼ÆËãÆ÷

Option Explicit
Dim potflag As Integer      '±êʶÊÇ·ñÓÃСÊýµã
Dim numcol As Integer       ' µã»÷ÔËËã·ûµÄ¸öÊý
Dim LastInput               ' ָʾÉÏÒ»´Î²Ù×÷µÄÄÚÈÝ
Dim colflag ......

VB ±à³ÌÖÐÈçºÎʹ´°¿ÚÓÒÉϽǵĹرհ´Å¥(X)ʧЧ

1¡¢Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As
Integer)
        Cancel = True
       End Sub
    2¡¢Private Sub
Form_Unload(Cancel As Integer)
        Cancel = ......

vbºÍaspÈçºÎÓÃremote·ÃÎÊÔ¶³ÌÊý¾Ý¿â


Òý×Ô£ºhttp://blog.csdn.net/yizia/archive/2006/09/19/1248669.aspx
·ÃÎÊÔ¶³ÌÊý¾Ý¿âµÄÇé¿öÓÐÒÔϼ¸ÖÖ£º
1£©·ÃÎÊÔ¶³ÌÊý¾Ý¿âµÄaccessÊý¾Ý¿â
2£©·ÃÎÊÔ¶³ÌmssqlÊý¾Ý¿â»òoracleµÈÆäËû¹ØÏµÊý¾Ý¿â£¬µ«ÊÇÊý¾Ý¿âͨÐŶ˿ڱ»·À»ðǽ×èµ²»òÆäËûÍøÂçÔ­ÒòÔì³ÉÎÞ·¨Ê¹Óøö˿Ú
±¾ÎĽöÔÚwindows2000 advance server,mdac2.8ϲâÊÔͨ¹ý£ ......

VB ʵÏÖ¹ú¼Ê»¯

1. ÀûÓÃ×ÊÔ´Îļþ±£´æ¹ú¼Ê»¯Áбí
2.“Íâ½Ó³ÌÐò”--“Íâ½Ó³ÌÐò¹ÜÀíÆ÷”--“VB6 ×ÊÔ´±à¼­Æ÷”¾Í¿ÉÒԱ༭×ÊÔ´Îļþ
3.²¿·Ö´úÂë
  '´°Ìå¼ÓÔØ
Private Sub Form_Load()
Dim LocaleID As Long
  LocaleID = GetSystemDefaultLCID
  Select Case LocaleID
   'Ó¢ÎÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ