1条回答 默认 最新
- 丨Haruna 2021-11-12 16:34关注
@御灵轩
用System.IO提供的File类实现文件的创建与删除,Directory类实现文件夹的创建与删除。Imports System.IO Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load LoadFile() End Sub Private Sub DirCreate_Click(sender As Object, e As EventArgs) Handles DirCreate.Click Directory.CreateDirectory("D:\" & TextBox1.Text) LoadFile() End Sub Private Sub DirDelete_Click(sender As Object, e As EventArgs) Handles DirDelete.Click Directory.Delete(ListBox1.SelectedItem.ToString()) LoadFile() End Sub Private Sub FileDelet_Click(sender As Object, e As EventArgs) Handles FileDelete.Click File.Delete(ListBox2.SelectedItem.ToString()) LoadFile() End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click MyBase.Dispose() End Sub Private Sub LoadFile() ListBox1.Items.Clear() ListBox2.Items.Clear() Dim a() As String = IO.Directory.GetFiles("D:\") For Each str As String In a ListBox2.Items.Add(str) Next Dim b() As String = IO.Directory.GetDirectories("D:\") For Each str As String In b ListBox1.Items.Add(str) Next End Sub End Class
解决 无用评论 打赏 举报 编辑记录
悬赏问题
- ¥15 fluent里模拟降膜反应的UDF编写
- ¥15 MYSQL 多表拼接link
- ¥15 关于某款2.13寸墨水屏的问题
- ¥15 obsidian的中文层级自动编号
- ¥15 同一个网口一个电脑连接有网,另一个电脑连接没网
- ¥15 神经网络模型一直不能上GPU
- ¥15 pyqt怎么把滑块和输入框相互绑定,求解决!
- ¥20 wpf datagrid单元闪烁效果失灵
- ¥15 券商软件上市公司信息获取问题
- ¥100 ensp启动设备蓝屏,代码clock_watchdog_timeout