社区
VB
帖子详情
怎么样判断某一路经下是否有.txt的文件
firein
2008-06-02 12:08:20
怎么样判断某一路经下是否有.txt的文件?
我知道的就是getFiles,然后遍历。。。
有米其他方法?
...全文
140
5
打赏
收藏
怎么样判断某一路经下是否有.txt的文件
怎么样判断某一路经下是否有.txt的文件? 我知道的就是getFiles,然后遍历。。。 有米其他方法?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
firein
2008-06-02
打赏
举报
回复
比如:文件夹D:\tmp,则代码如下:
Dim fn() As String
fn=System.IO.Directory.GetFiles("D:\tmp\","*.txt")
fn即为D:\tmp文件夹内所有扩展名为txt的所有文件名,fn.Length即为文件数量。
找到这么个东西 真强大
firein
2008-06-02
打赏
举报
回复
看了msdn,这个应该是可以的。
但是还要判断这个路径下是否只有一个.txt。。
有没什么办法?
firein
2008-06-02
打赏
举报
回复
[Quote=引用 2 楼 yanlongwuhui 的回复:]
Dim strRtn As String
strRtn = Dir("F:\*.TXT")
If strRtn = "" Then
MsgBox("指定路径下没有TXT文件。")
End If
[/Quote]
呵呵 还可以这样?
yanlongwuhui
2008-06-02
打赏
举报
回复
Dim strRtn As String
strRtn = Dir("F:\*.TXT")
If strRtn = "" Then
MsgBox("指定路径下没有TXT文件。")
End If
amandag
2008-06-02
打赏
举报
回复
我知道的和你一样
操作文件没有索引的概念,应该是只能遍历判断
验证键盘录入的用户名跟user.
txt
中已注册的用户名
是否
重复:是:控制台提示:用户名已存在否:将键盘录入的用户名及密码写入user.
txt
文件
,并在控制台提示:注册成功;
验证键盘录入的用户名跟user.
txt
中已注册的用户名
是否
重复: 是:控制台提示:用户名已存在 否:将键盘录入的用户名及密码写入user.
txt
文件
,并在控制台提示:注册成功;
python文本
文件
导入数据库_怎么把
txt
文件
导入mysql
首先将excel文档另存成CSV(逗号分隔)文档,存储过程中会有一系列的警告提示,
一路
OK下来即可。用记事本的打开方式打开刚刚保存的.csv
文件
,我们发现,列与列之间用逗号(,)隔开:将其另存为.
txt
文件
,并且编码要选择UTF-8:成功保存
txt
文件
后就可以用PHPmyadmin导入该
文件
了。但这里一定要注意一点,该
文件
的名字一定不能出现中文,
文件
的存放路径也不能有中文出现。如果出现中文,导入过...
Java复制某
一路
经下
的
文件
(包含子
文件
、子
文件
夹)到另一个路径下
原创不易,装载标明出处。 import java.io.File; import java.io.*; public class test_CopyAll { public static void main(String[] args) { copyFolder("src/test_7/Source","src/test_7/Target"); } //循环遍历
文件
的变式使用 public static void copyFolder(St.
标题:兴趣小组 为丰富同学们的业余文化生活,某高校学生会创办了3个兴趣小组 (以下称A组,B组,C组)。 每个小组的学生名单分别在【A.
txt
】,【B.
txt
】和【C.
txt
】中。 每个
文件
中存储
标题:兴趣小组 为丰富同学们的业余文化生活,某高校学生会创办了3个兴趣小组 (以下称A组,B组,C组)。 每个小组的学生名单分别在【A.
txt
】,【B.
txt
】和【C.
txt
】中。 每个
文件
中存储的是学生的学号。 由于工作需要,我们现在想知道: 既参加了A组,又参加了B组,但是没有参加C组的同学一共有多少人? 请你统计该数字并通过浏览器提交答案。 注意:答案是一个整数,不要提交任何多余的内容。 ...
git学习
git学习 Git简介 一、git的安装 1、在Linux上安装Git sudo apt-get install git 2、在Windows上安装Git 在Windows上使用Git,可以从Git官网直接下载安装程序,然后按默认选项安装即可。 安装完成后,在开始菜单里找到“Git”->“Git Bash”,蹦出一个类似命令行窗口的东西,就说明Git安装成功! 安装完成后,还需要最后一步设...
VB
16,717
社区成员
110,522
社区内容
发帖
与我相关
我的任务
VB
VB技术相关讨论,主要为经典vb,即VB6.0
复制链接
扫一扫
分享
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章