当前位置:首页 » 文件管理 » vbnet删除文件夹及文件夹

vbnet删除文件夹及文件夹

发布时间: 2022-02-28 14:11:39

1. vb.net 创建文件夹和删除文件夹

Private Sub btnRemovePath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemovePath.Click
Try
' 先建立目录以便用于后续的删除示范。
If Not Directory.Exists("D:\网易") Then
Directory.CreateDirectory(" D:\网易 \Test1")
Directory.CreateDirectory(" D:\网易 \Test2")
Directory.CreateDirectory(" D:\网易 \Test3")
End If
' 删除子目录 Test1。
Directory.Delete(" D:\网易 \Test1", True)
' 删除子目录 Test2。
Dim myDirectoryInfo As New DirectoryInfo(" D:\网易 \Test2")
myDirectoryInfo.Delete(True)
' 将目录 C:\AlexDirDemo 及其以下的文件和子目录全数删除。
Directory.Delete(" D:\网易 ", True)
Catch ex As Exception
MessageBox.Show(ex.Message)
Exit Sub
End Try
' 启动 Windows 资源管理器。
Process.Start("explorer.exe", "D:\")
End Sub

2. vb.net删除文件

PrivateSubbtnRemovePath_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbtnRemovePath.Click
Try
'先建立目录以便用于后续的删除示范。
IfNotDirectory.Exists("D:网易")Then
Directory.CreateDirectory("D:网易Test1")
Directory.CreateDirectory("D:网易Test2")
Directory.CreateDirectory("D:网易Test3")
EndIf
'删除子目录Test1。
Directory.Delete("D:网易Test1",True)
'删除子目录Test2。
("D:网易Test2")
myDirectoryInfo.Delete(True)
'将目录C:AlexDirDemo及其以下的文件和子目录全数删除。
Directory.Delete("D:网易",True)
CatchexAsException
MessageBox.Show(ex.Message)
ExitSub
EndTry
'启动Windows资源管理器。
Process.Start("explorer.exe","D:")
EndSub

3. ASP.NET中如何实现删除文件夹

界面布置主界面设计中有个“删除”按钮,其(ID)为btnDelete。用户在目录浏览中选中要删除的项后,单击该按钮就可以完成删除工作。代码实现在“设计”面板中双击“删除”按钮,为其添加事件处理程序如下: private void BtnDelete_Click(object sender, System.EventArgs e) { DeleteThings(FileList.SelectedItem.Text); } private void DeleteThings(string FullPath) { if(FullPath.IndexOf(".")>0) //删除文件{ File.Delete(FullPath); LoadDir(CurrentPath); //重新载入当前目录} else //删除目录{ Directory.Delete(FullPath); LoadDir(CurrentPath); //重新载入当前目录} } 删除时首先判断选中的是文件还是文件夹。如果是文件,则调用File.Delete()方法;反之则调用Directory.Delete()方法。删除成功后再调用LoadDir()方法显示更改后的目录内容。

4. .NET下怎么删除一个文件夹下的所有文件

一个的话是 File.Delete(“路径”)

5. vb如何删除指定目录下的全部文件

文件都是有结构的,不能凭空创造一个,目录倒是可以(例如:mkdir
"c:\mulu")
以下代码在c:\mulu下建立一个记事本文件1.txt:
private
sub
form_click()
mkdir
"c:\mulu"
open
"c:\mulu\1.txt"
for
output
as
#121
print
#121,
"内容"
close
#121
end
sub
当然你也可以修改此文件的信息,后缀等

6. .net删除指定的文件

stringPath;//路径
if(System.IO.Directory.Exists(Path))
{
//Searchthedirectory
DirectoryInfodi=newDirectoryInfo(Path);
FileInfo[]f=di.GetFiles("*.xls");//文件夹下的.xls文件
//FileInfo[]f=di.GetFiles();//文件夹下所有文件
foreach(FileInfomyFileinf)
{
myFile..Delete()//删除这个文件就可以了
}
}

7. .net 如何删除文件及目录

Directory.Delete("路径",true);//删除路径及以下所有文件

8. vb.net怎么强制删除文件

先杀进程再删除文件

Visual Basic code

//杀进程代码
PrivateSubKillProcess(ByValprocessNameAsString)
DimmyprocAsSystem.Diagnostics.Process=NewSystem.Diagnostics.Process
Try
.GetProcessesByName(processName)
If(Notthisproc.CloseMainWindow())Then
thisproc.Kill()
EndIf
Next
Catch
EndTry
EndSub

9. c#+asp.net如何删除指定路径下的文件和文件夹

.net提供了一个静态类Directory 用以处理文件夹相关操作 要删除指定路径下的文件和文件夹的话 可以使用Directory.Exists方法判断该路径是否存在 如果存在使用Directory.GetDirectories获取该路径下所有子文件夹 通过遍历使用Directory.Delete方法删除 再通过Directory.GetFiles获取该路径下所有文件 遍历使用File.Delete方法删除 具体代码如下

if(Directory.Exists(yourPath))
{
//获取指定路径下所有文件夹
string[]folderPaths=Directory.GetDirectories(yourPath);

foreach(stringfolderPathinfolderPaths)
Directory.Delete(folderPath,true);
//获取指定路径下所有文件
string[]filePaths=Directory.GetFiles(yourPath);

foreach(stringfilePathinfilePaths)
File.Delete(filePath);
}


如果你需要连你指定的文件夹一起删除 就简单的多 如下

if(Directory.Exists(yourPath))
Directory.Delete(yourPath,true);

上述两例中的yourPath应为指定文件夹的路径 如: D: est 第一例则会删除test文件夹下的所有子项 第二例则是test文件夹及其子项一起删除 需要注意的是Directory.Delete方法有两个重载 举例说明:

Directory.Delete(yourPath);//如果yourPath有子项则删除失败抛出异常
Directory.Delete(yourPath,true);//第二个为bool类型参数表示是否需要使用递归删除

补充说明 如果只是需要删除文件 就使用File类 如下

if(File.Exists(filePath))
File.Delete(filePath)

上例中的filePath为文件的完整路径 如: C: est est.txt

10. 用VB.NET 删除文件夹 连带这子目录一起删除怎么处理

看看这个,有删除的
Public strPath As String '要导出的文件夹路径
Public NewFile As String '文件保存用
'创建文件夹
Public Sub CreatemyFolder(str As String)
Dim Mybook As Workbook
Dim f
Dim mypath As String
'Dim NewFile As String
Dim strPathFolder$
Dim abc As Object
NewFile = str
'强制覆盖保存时,不让确认框弹出?
Application.DisplayAlerts = False
Set Mybook = ThisWorkbook '把当前工作簿定义为变量Mybook
mypath = ThisWorkbook.Path & "\"
strPathFolder = mypath & NewFile
strPath = strPathFolder & "\"

On Error Resume Next
Set abc = CreateObject("Scripting.FileSystemObject")
If abc.FolderExists(strPathFolder) = True Then
'===删除文件夹==========
Set f = abc.GetFolder(strPathFolder)
f.Delete
abc.CreateFolder (strPathFolder)
'===删除文件夹==========
Exit Sub
Else
abc.CreateFolder (strPathFolder)
End If

Set abc = Nothing
End Sub

热点内容
c语言中的read 发布:2024-10-28 10:20:26 浏览:110
手机酷狗上传自己的歌 发布:2024-10-28 10:11:47 浏览:461
phpcms无法访问 发布:2024-10-28 10:11:29 浏览:727
机顶盒支付密码是多少 发布:2024-10-28 10:09:56 浏览:618
缓存的视频很卡怎么回事 发布:2024-10-28 10:07:17 浏览:542
解压研究室 发布:2024-10-28 10:06:32 浏览:270
压缩键索引 发布:2024-10-28 10:05:35 浏览:41
是什么文件夹tencent 发布:2024-10-28 10:00:42 浏览:291
c语言字符串汉字 发布:2024-10-28 09:53:30 浏览:310
数据库修饰符 发布:2024-10-28 09:50:34 浏览:279