可以用FILESYSTEMOBJECTDim fs As New FileSystemObject 'Call ShowDriveList Dim Bt As Boolean'判断文件夹是否存在 Bt = fs.FolderExists("c:\windows\desktop\t") If Bt = True Then '先将要删除文件夹下的只读文件变为不只读的 Shell "attrib c:\windows\desktop\t\*.* -h -r /s", vbHide '再删除文件夹 fs.DeleteFolder "c:\windows\desktop\t"
End IfIf fs.FolderExists("d:\test") = False Then '创建一个文件夹 fs.CreateFolder "d:\test" '创建一个文件 fs.CreateTextFile "d:\test\createtxt.doc" End If'复制文件夹 fs.CopyFolder "d:\test", "c:\windows\desktop\t", True '复制文件 If fs.FileExists("c:\Frunlog.txt") = True Then fs.CopyFile "c:\Frunlog.txt", "c:\windows\desktop\T\aaaa.txt" End If END SUB
删除文件到回收站时怎样使用Windows95的动画删除对话框 本文介绍怎样在VB中删除文件时,使用象在Windows Explorer中删除文件一样的动画删除框。 VB提供了“KILL”方法删除WINDOWS的文件和文件夹。这个方法适合于大多数通常情况并且是十分强大。 但是有许多事件都缺乏虚拟的表示(...that it lacks is any kind of visual que as to...),如删除操作 何时结束,或把文档移到回收站。用这个方法的所有操作都是永久性的。 你可以在操作过程中将鼠标指针对象改为其他形式,当操作完成后设回默认值。即使没有什么提示,但 依然没有办法将文档移到回收站。 然而WINDOWS95提供了一些函数,能够利用象在Windows Explorer中删除文件看到的一样的动画删除框。 下面的例子将会介绍怎样使用这些功能来使用户环境更加符合WINDOWS95/NT的界面。 操作步骤: 1、建立一个新工程项目,缺省建立窗体FORM1 2、添加一个新模体 3、粘贴下面代码到新模体 Option ExplicitDeclare Function SHFileOperation Lib "Shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As LongType SHFILEOPSTRUCT hwnd As Long wFunc As Long pFrom As String pTo As String fFlags As Long fAnyOperationsAborted As Long hNameMappings As Long lpszProgressTitle As String End TypePublic Const FO_MOVE As Long = &H1 Public Const FO_COPY As Long = &H2 Public Const FO_DELETE As Long = &H3 Public Const FO_RENAME As Long = &H4Public Const FOF_MULTIDESTFILES As Long = &H1 Public Const FOF_CONFIRMMOUSE As Long = &H2 Public Const FOF_SILENT As Long = &H4 Public Const FOF_RENAMEONCOLLISION As Long = &H8 Public Const FOF_NOCONFIRMATION As Long = &H10 Public Const FOF_WANTMAPPINGHANDLE As Long = &H20 Public Const FOF_CREATEPROGRESSDLG As Long = &H0 Public Const FOF_ALLOWUNDO As Long = &H40 Public Const FOF_FILESONLY As Long = &H80 Public Const FOF_SIMPLEPROGRESS As Long = &H100 Public Const FOF_NOCONFIRMMKDIR As Long = &H2004、在窗体FORM1中添加一个命令钮COMMAND1 5、添加下面代码到窗体中 Option ExplicitPrivate Sub Command1_Click() Dim DelFileOp As SHFILEOPSTRUCT Dim result As Long With DelFileOp .hwnd = Me.hwnd .wFunc = FO_DELETE ' Delete the files you just moved to C:\TestFolder. ' If you do not have these files, you can alter this ' sample to point to existing files. ' .pFrom = "C:\testfolder\file1" & vbNullChar & "c:\testfolder\file2" & vbNullChar & vbNullChar .pFrom = "c:\testfolder\*" & vbNullChar & vbNullChar ' Allow undo--in other words, place the files into the Recycle Bin .fFlags = FOF_ALLOWUNDO End With result = SHFileOperation(DelFileOp) If result <> 0 Then ' Operation failed If Err.LastDllError <> 0 Then MsgBox Err.LastDllError ' Msgbox the error that occurred in the API. End If Else If DelFileOp.fAnyOperationsAborted <> 0 Then MsgBox "Operation Failed" End If End If End Sub 6、保存项目 7、运行程序。当按下命令钮时,系统将提示发送文件到回收站。假如回答“YES”,则所有文件都会被拷贝到 回收站,并从原来所在的目录中删除。删除操作过程中可以看到标准的删除过程对话框,显示每一个被删 除文件的文件名。 建议从多种途径使用其它选项可以使这个功能更可靠。
删除文件到回收站时怎样使用Windows95的动画删除对话框 本文介绍怎样在VB中删除文件时,使用象在Windows Explorer中删除文件一样的动画删除框。 VB提供了“KILL”方法删除WINDOWS的文件和文件夹。这个方法适合于大多数通常情况并且是十分强大。 但是有许多事件都缺乏虚拟的表示(...that it lacks is any kind of visual que as to...),如删除操作 何时结束,或把文档移到回收站。用这个方法的所有操作都是永久性的。 你可以在操作过程中将鼠标指针对象改为其他形式,当操作完成后设回默认值。即使没有什么提示,但 依然没有办法将文档移到回收站。 然而WINDOWS95提供了一些函数,能够利用象在Windows Explorer中删除文件看到的一样的动画删除框。 下面的例子将会介绍怎样使用这些功能来使用户环境更加符合WINDOWS95/NT的界面。 操作步骤: 1、建立一个新工程项目,缺省建立窗体FORM1 2、添加一个新模体 3、粘贴下面代码到新模体 Option ExplicitDeclare Function SHFileOperation Lib "Shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As LongType SHFILEOPSTRUCT hwnd As Long wFunc As Long pFrom As String pTo As String fFlags As Long fAnyOperationsAborted As Long hNameMappings As Long lpszProgressTitle As String End TypePublic Const FO_MOVE As Long = &H1 Public Const FO_COPY As Long = &H2 Public Const FO_DELETE As Long = &H3 Public Const FO_RENAME As Long = &H4Public Const FOF_MULTIDESTFILES As Long = &H1 Public Const FOF_CONFIRMMOUSE As Long = &H2 Public Const FOF_SILENT As Long = &H4 Public Const FOF_RENAMEONCOLLISION As Long = &H8 Public Const FOF_NOCONFIRMATION As Long = &H10 Public Const FOF_WANTMAPPINGHANDLE As Long = &H20 Public Const FOF_CREATEPROGRESSDLG As Long = &H0 Public Const FOF_ALLOWUNDO As Long = &H40 Public Const FOF_FILESONLY As Long = &H80 Public Const FOF_SIMPLEPROGRESS As Long = &H100 Public Const FOF_NOCONFIRMMKDIR As Long = &H2004、在窗体FORM1中添加一个命令钮COMMAND1 5、添加下面代码到窗体中 Option ExplicitPrivate Sub Command1_Click() Dim DelFileOp As SHFILEOPSTRUCT Dim result As Long With DelFileOp .hwnd = Me.hwnd .wFunc = FO_DELETE ' Delete the files you just moved to C:\TestFolder. ' If you do not have these files, you can alter this ' sample to point to existing files. ' .pFrom = "C:\testfolder\file1" & vbNullChar & "c:\testfolder\file2" & vbNullChar & vbNullChar .pFrom = "c:\testfolder\*" & vbNullChar & vbNullChar ' Allow undo--in other words, place the files into the Recycle Bin .fFlags = FOF_ALLOWUNDO End With result = SHFileOperation(DelFileOp) If result <> 0 Then ' Operation failed If Err.LastDllError <> 0 Then MsgBox Err.LastDllError ' Msgbox the error that occurred in the API. End If Else If DelFileOp.fAnyOperationsAborted <> 0 Then MsgBox "Operation Failed" End If End If End Sub 6、保存项目 7、运行程序。当按下命令钮时,系统将提示发送文件到回收站。假如回答“YES”,则所有文件都会被拷贝到 回收站,并从原来所在的目录中删除。删除操作过程中可以看到标准的删除过程对话框,显示每一个被删 除文件的文件名。 建议从多种途径使用其它选项可以使这个功能更可靠。
rmdir "c:\text"
shell "command /c c:\windows\command\deltree c:\text -y"
'Call ShowDriveList
Dim Bt As Boolean'判断文件夹是否存在
Bt = fs.FolderExists("c:\windows\desktop\t")
If Bt = True Then
'先将要删除文件夹下的只读文件变为不只读的
Shell "attrib c:\windows\desktop\t\*.* -h -r /s", vbHide
'再删除文件夹
fs.DeleteFolder "c:\windows\desktop\t"
End IfIf fs.FolderExists("d:\test") = False Then
'创建一个文件夹
fs.CreateFolder "d:\test"
'创建一个文件
fs.CreateTextFile "d:\test\createtxt.doc"
End If'复制文件夹
fs.CopyFolder "d:\test", "c:\windows\desktop\t", True
'复制文件
If fs.FileExists("c:\Frunlog.txt") = True Then
fs.CopyFile "c:\Frunlog.txt", "c:\windows\desktop\T\aaaa.txt"
End If
END SUB
VB提供了“KILL”方法删除WINDOWS的文件和文件夹。这个方法适合于大多数通常情况并且是十分强大。
但是有许多事件都缺乏虚拟的表示(...that it lacks is any kind of visual que as to...),如删除操作
何时结束,或把文档移到回收站。用这个方法的所有操作都是永久性的。
你可以在操作过程中将鼠标指针对象改为其他形式,当操作完成后设回默认值。即使没有什么提示,但
依然没有办法将文档移到回收站。
然而WINDOWS95提供了一些函数,能够利用象在Windows Explorer中删除文件看到的一样的动画删除框。
下面的例子将会介绍怎样使用这些功能来使用户环境更加符合WINDOWS95/NT的界面。
操作步骤:
1、建立一个新工程项目,缺省建立窗体FORM1
2、添加一个新模体
3、粘贴下面代码到新模体
Option ExplicitDeclare Function SHFileOperation Lib "Shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As LongType SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Long
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String
End TypePublic Const FO_MOVE As Long = &H1
Public Const FO_COPY As Long = &H2
Public Const FO_DELETE As Long = &H3
Public Const FO_RENAME As Long = &H4Public Const FOF_MULTIDESTFILES As Long = &H1
Public Const FOF_CONFIRMMOUSE As Long = &H2
Public Const FOF_SILENT As Long = &H4
Public Const FOF_RENAMEONCOLLISION As Long = &H8
Public Const FOF_NOCONFIRMATION As Long = &H10
Public Const FOF_WANTMAPPINGHANDLE As Long = &H20
Public Const FOF_CREATEPROGRESSDLG As Long = &H0
Public Const FOF_ALLOWUNDO As Long = &H40
Public Const FOF_FILESONLY As Long = &H80
Public Const FOF_SIMPLEPROGRESS As Long = &H100
Public Const FOF_NOCONFIRMMKDIR As Long = &H2004、在窗体FORM1中添加一个命令钮COMMAND1
5、添加下面代码到窗体中
Option ExplicitPrivate Sub Command1_Click()
Dim DelFileOp As SHFILEOPSTRUCT
Dim result As Long
With DelFileOp
.hwnd = Me.hwnd
.wFunc = FO_DELETE
' Delete the files you just moved to C:\TestFolder.
' If you do not have these files, you can alter this
' sample to point to existing files.
' .pFrom = "C:\testfolder\file1" & vbNullChar & "c:\testfolder\file2" & vbNullChar & vbNullChar
.pFrom = "c:\testfolder\*" & vbNullChar & vbNullChar
' Allow undo--in other words, place the files into the Recycle Bin
.fFlags = FOF_ALLOWUNDO
End With
result = SHFileOperation(DelFileOp)
If result <> 0 Then ' Operation failed
If Err.LastDllError <> 0 Then
MsgBox Err.LastDllError ' Msgbox the error that occurred in the API.
End If
Else
If DelFileOp.fAnyOperationsAborted <> 0 Then
MsgBox "Operation Failed"
End If
End If
End Sub
6、保存项目
7、运行程序。当按下命令钮时,系统将提示发送文件到回收站。假如回答“YES”,则所有文件都会被拷贝到
回收站,并从原来所在的目录中删除。删除操作过程中可以看到标准的删除过程对话框,显示每一个被删
除文件的文件名。 建议从多种途径使用其它选项可以使这个功能更可靠。
VB提供了“KILL”方法删除WINDOWS的文件和文件夹。这个方法适合于大多数通常情况并且是十分强大。
但是有许多事件都缺乏虚拟的表示(...that it lacks is any kind of visual que as to...),如删除操作
何时结束,或把文档移到回收站。用这个方法的所有操作都是永久性的。
你可以在操作过程中将鼠标指针对象改为其他形式,当操作完成后设回默认值。即使没有什么提示,但
依然没有办法将文档移到回收站。
然而WINDOWS95提供了一些函数,能够利用象在Windows Explorer中删除文件看到的一样的动画删除框。
下面的例子将会介绍怎样使用这些功能来使用户环境更加符合WINDOWS95/NT的界面。
操作步骤:
1、建立一个新工程项目,缺省建立窗体FORM1
2、添加一个新模体
3、粘贴下面代码到新模体
Option ExplicitDeclare Function SHFileOperation Lib "Shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As LongType SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Long
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String
End TypePublic Const FO_MOVE As Long = &H1
Public Const FO_COPY As Long = &H2
Public Const FO_DELETE As Long = &H3
Public Const FO_RENAME As Long = &H4Public Const FOF_MULTIDESTFILES As Long = &H1
Public Const FOF_CONFIRMMOUSE As Long = &H2
Public Const FOF_SILENT As Long = &H4
Public Const FOF_RENAMEONCOLLISION As Long = &H8
Public Const FOF_NOCONFIRMATION As Long = &H10
Public Const FOF_WANTMAPPINGHANDLE As Long = &H20
Public Const FOF_CREATEPROGRESSDLG As Long = &H0
Public Const FOF_ALLOWUNDO As Long = &H40
Public Const FOF_FILESONLY As Long = &H80
Public Const FOF_SIMPLEPROGRESS As Long = &H100
Public Const FOF_NOCONFIRMMKDIR As Long = &H2004、在窗体FORM1中添加一个命令钮COMMAND1
5、添加下面代码到窗体中
Option ExplicitPrivate Sub Command1_Click()
Dim DelFileOp As SHFILEOPSTRUCT
Dim result As Long
With DelFileOp
.hwnd = Me.hwnd
.wFunc = FO_DELETE
' Delete the files you just moved to C:\TestFolder.
' If you do not have these files, you can alter this
' sample to point to existing files.
' .pFrom = "C:\testfolder\file1" & vbNullChar & "c:\testfolder\file2" & vbNullChar & vbNullChar
.pFrom = "c:\testfolder\*" & vbNullChar & vbNullChar
' Allow undo--in other words, place the files into the Recycle Bin
.fFlags = FOF_ALLOWUNDO
End With
result = SHFileOperation(DelFileOp)
If result <> 0 Then ' Operation failed
If Err.LastDllError <> 0 Then
MsgBox Err.LastDllError ' Msgbox the error that occurred in the API.
End If
Else
If DelFileOp.fAnyOperationsAborted <> 0 Then
MsgBox "Operation Failed"
End If
End If
End Sub
6、保存项目
7、运行程序。当按下命令钮时,系统将提示发送文件到回收站。假如回答“YES”,则所有文件都会被拷贝到
回收站,并从原来所在的目录中删除。删除操作过程中可以看到标准的删除过程对话框,显示每一个被删
除文件的文件名。 建议从多种途径使用其它选项可以使这个功能更可靠。