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)
Ïà¹ØÎĵµ£º
ÔÚ¹¤³ÌÖÐÌí¼ÓÒ»¸öÀàÄ£¿é£¬ÃûΪ Selection
È»ºó¼ÓÈëÒÔÏ´úÂ룺
Dim colRows As Collection
Dim ControlKey As Boolean
Public WithEvents flx As M ......
MYSQL Ó¦ÓÃÊ®·Ö¹ã·¶£¬ºÜ¶àÍøÕ¾¼¸ºõ¶¼ÔÚÓÃËû£¬ÒòΪËûµÄСÇɺÍÁé»îÐԵȷ½ÃæÈÃÎÒ¾ö¶¨Òª¶ÔËû½øÐÐÑо¿£¬µ½ÏÖÔÚÒѾ³É¹¦µÄ²»Óþ¹ýODBC£¬ADOµÈ·½Ê½¾Í¿ÉÒÔ¶ÁÈ¡ºÍ¸üÐÂÊý¾Ý¡£
ºÃÁ˲»¶àÂÞ࣬ÒÔÏÂÎÒÀ´½éÉÜ×ܸö³ÌÐòµÄϸ½Ú:
£¨Ò»£©APIÉùÃ÷
1. '·ÖÅä»ò³õʼ»¯ÊʺÏmysql_real_connect()µÄÒ»¸öMYSQL¶ÔÏñ¡ ......
È«ÆÁ
Private Sub Form_Load()
Me.Width = Screen.Width
Me.Height = Screen.Height
Me.WindowState = 2
End Sub
Öö¥
1.ÔÚVBµÄͨÓôúÂëÀïдÈëAPIÉùÃ÷
Private Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, _
&n ......
Option Explicit
Private Const NCBASTAT = &H33
Private Const NCBNAMSZ = 16
Private Const HEAP_ZERO_MEMORY = &H8
Private Const HEAP_GENERATE_EXCEPTIONS = &H4
Private Const NCBRESET = &H32
Private Type NCB
ncb_command As Byte
ncb_retcode As Byte
ncb_lsn As Byte
ncb_num As Byte ......
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Boolean
End Type
Dim lang As String
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hkey As Long, ByV ......