Question

用VB生成了个TXT文件，位置 c:\a.txt 。在c盘里面找不到此文件，cmd下dir也看不到。

用VB生成了个TXT文件，位置 c:\a.txt 。在c盘里面找不到此文件，cmd下dir也看不到。但是在VB里面却能正常读写，写入的内容也能在完全退出VB重新打开VB后正常读取。全盘搜索a.txt所不到，求解。

Answer 1

查看隐藏文件，菜单的工具-文件夹选项-查看-隐藏文件和文件夹，选择显示所有文件夹，点确定，再看C盘根目录有没有。

或者用:
If Dir("c:\a.txt") = "" Then
MsgBox "不存在"
Else
MsgBox "存在"
End If

追问

vb里面 dir 能找到 cmd 里面 dir 找不到 没设置隐藏 开了显示所有文件

追答

这种情况理论上讲是不可能的，除非是dos命令用错了
你试试dos进入C盘根目录
c:
cd \
dir /a >>d:\dir.txt
然后去D盘打开dir.txt看文件列表，像boot.ini这样的文件都能找到，你的文件如果位置正确，没理由找不到，dir如果省略目录，则表示当前目录，你看下当前目录是否在你的a.txt所在目录。

追问

左边是读取代码，能正常读取，右边是cmd下 dir /a 

追答

试试如下命令
查看隐藏文件
dir /ah
去掉隐藏属性
ATTRIB -h c:\UserName.txt
编辑
edit c:\UserName.txt
打开
start c:\UserName.txt
复制到D盘根目录
copy c:\UserName.txt d:\UserName.txt

Answer 2

是不是被你的众多文件淹没了，好好找找，

如果真没有，我猜你可能并没有真把这个文件生成，但你把内容读入了某个临时文件，所以在此读取的时候会有之前写入的内容，建议你把程序再核实一下

给你个程序尾，看看这些是你都做了么

SaveFile = "路径" & name(i) & ".xls" '保存文件
If Dir(SaveFile) <> "" Then Kill SaveFile
xlBook.SaveAs FileName:=SaveFile ' 保存文件,结束时一定别忘了保存
xlBook.Close (True) '关闭工作簿 这里的True表示退出时保存修改
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象

Next i
MsgBox "文件已成功导出"
End Sub

希望我的回答对你有所帮助

追问

左边是读取代码，能正常读取，右边是cmd下 dir /a 

Answer 3

无代码无真相，不知道你怎么生成的
在DOS窗口用dir c:\a.txt /a看看有没有，有的话可能是属性设置成隐藏了

追问

没有啊 cmd里面 dir 看不到 vb里面 用dir()函数却显示文件存在，开了显示所以文件，也没有

追答

无代码无真相

追问

左边是读取代码，能正常读取，右边是cmd下 dir /a 

Answer 4

在该程序的运行目录里找找，或者搜索整个C盘和该程序运行的盘符

Answer 5

dir /a