文件夹中文件名称的获取,并相应的添加或删除对应的文件夹或文佳

1、获取文件夹中文件夹的名称,并添加或删除对应的文件夹
<1> 获取文件夹的名称
fldPath = “相对应的路径名称”
dirInfo = New DirectoryInfo(fldPath)
files = dirInfo.GetFiles()
dirInfo1 = dirInfo.GetDirectories()
<2> 删除对应的文件夹
For i As Integer =0 To dirNGInfo1.Length
If Directory.Exists(dirInfo1(i).FullName.ToString()) = True Then
Directory.Delete(dirInfo1(i).FullName.ToString(), True)
End If
Next
注意:1°倘若删除文件夹写成 Directory.Delete(DelPath)会报警:目录不是空的,该文件夹将不会被删除
2°倘若删除文件夹写成 Directory.Delete(DelPath, True),仍旧报警:目录不是空的,此时的解决方式:右键文件夹》属性》安全》在相应的权限上,勾选“完全控制”
相应的权限:everyone
<3> 添加新的文件夹
If Directory.Exists(FilePath) = False Then
Directory.CreateDirectory(FilePath)
End If

2、获取文件夹中文件的名称,并添加或删除对应的文件夹
<1> 获取文件的名称
fldPath = “相对应的路径名称”
dirInfo = New DirectoryInfo(fldPath)
files = dirInfo.GetFiles()
<2> 删除对应的文件
For i As Integer =0 To files .Length
If Directory.Exists(files (i).ToString()) = True Then
Directory.Delete(files (i).ToString())
End If
Next
<3> 添加新的文件
If Directory.Exists(FilePath) = False Then
Directory.Create(FilePath)
End If

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值