登录
首页 » VB源码 » VB 删除指定类型文件

VB 删除指定类型文件

于 2022-10-25 发布 文件大小:2.44 kB
0 108
下载积分: 2 下载次数: 1

代码说明:

VB 删除指定类型文件,用户选择电脑中指定路径下的文件类型后,可删除该目录下所有此类型的文件。

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • vb利用数据窗口辅助录入数据
    vb利用数据窗口辅助录入数据,也就是本程序窗口中,生成了一些数据辅助窗口,可对用户的录入工作提供一些帮助,其实就是一些供用户选择的组件之类的,用户了用户,又提升了数据录入的准确性,在VB6.0中,本源码可顺利编译成功,运行后如示例图所示。
    2023-07-26 19:20:03下载
    积分:1
  • VB NET写的DVD播放器
    播放器窗口界面中的操作菜单,实现了弹出菜单的功能,把控制菜下的各菜单项添加到弹出式菜单ContextMenuStrip1中。   播放器功能支持DVD格式的视频播放,包括了暂停、播放、停止、弹出等功能。   本播放器程序依赖于AxInterop.MSWEBDVDLib.dll、Interop.MSWEBDVDLib.dll。
    2023-05-18 15:05:03下载
    积分:1
  • VB 将小写数字金额格式化为大写金额
    VB 将小写数字金额格式化为大写金额,这一个相比其它的金额数字转换,是自动转换,用户输入完小写数字金额后,程序将自动把小写数字变为大写,不过奇怪的是,在代码中并没有发现转换功能写在哪里,看到有数据库,莫非大写字符都存储于数据库吗?本例最终的运行效果如下图所示,用户在金额(大写)处输入小写的数字,可以输入小数点,然后单击其它空白处,程序会自动将小写金额转换成大写状态。
    2022-07-04 15:26:33下载
    积分:1
  • VB 写的拼图 用数字代表图片
    VB 写的拼图 用数字代表图片,将数字的顺序排列好,就完成了拼图,比起图片版的拼图,要简单多了。   玩法:将数字1挪动到最开始的位置,如何移动?要把占位的数字一个一个挪开,依次为1、2、3等数字让位,把整体排序好,就拼好了。
    2022-07-23 16:53:18下载
    积分:1
  • VB6.0 使用递归过程实现阶乘运算
    VB6.0 使用递归过程实现阶乘运算   Function F(n As Integer) As Single    If n > 1 And n
    2022-04-27 22:53:13下载
    积分:1
  • 日常考勤程序 基于VB.NET实现附
    一款基于VB.NET和sqlserver数据库实现的考勤程序,实现公司员工的日常考勤功能,可实现指定日期的员工考勤,考勤时可选择考勤天数、考勤人,可查询本人的考勤记录,实现的是挺基本的考勤模块,还可显示当前用户的历史记录。   本实例的数据库文件在db文件夹下,请自行添加,并配置数据库信息。   源代码运行于VS2015环境下。
    2022-12-02 11:45:03下载
    积分:1
  • VB NET SQLSERVER 酒店客房管理系统
    VB NET SQLSERVER 酒店管理系统,功能模块:基础设置、业务管理、预定管理、入住管理、收钱退房、信息查询、客房管理、预定信息查询、入住信息查询、入住客史查询等,只是一个基础级的酒店客户管理程序,测试前请把Database下的数据库附加,修改数据库连接字符串,然后运行Debug中的exe程序。
    2023-04-22 15:20:03下载
    积分:1
  • VB 网络连通检测
    VB 网络连通检测,单击命令按钮可进行网络连通检测,判断是本机否连接到Internet。操作很简单,将连通测试检测结果输出到屏幕上。
    2023-08-30 14:45:02下载
    积分:1
  • VB 6.0 对字符串进行加、减、乘、除计算
    VB 6.0 对字符串进行加、减、乘、除计算,如何对字符串进行加、减、乘、除计算呢,本示例演示了这个功能,其实就是数学表达式的计算,运算式中可以有括号,程序将按照运算规则,按照括号优先、乘除优先的原则进行运算,计算出结果并显示在Textbox中,最终运行效果如示例图所示。
    2022-03-02 02:18:41下载
    积分:1
  • VB 记录鼠标行为,判断左键右键
    VB 记录鼠标行为,记录用户是单击了鼠标右键或是左键,监控鼠标被单击了哪个键,核心的代码如下:   If GetAsyncKeyState(VK_LBUTTON) = -32767 Then    Text1.Text = Text1.Text + " 鼠标左键 "   ElseIf GetAsyncKeyState(VK_RBUTTON) = -32767 Then    Text1.Text = Text1.Text + " 鼠标右键 "   End If
    2022-02-28 11:29:47下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载