MyName = Dir(MyPath, vbDirectory); MyName <> "." And MyName <> ".." 　中的“.”和“..”代表什么啊？？

fhwei 2003-04-06 09:57:48

MyName = Dir(MyPath, vbDirectory)
MyName <> "." And MyName <> ".."
中的“.”和“..”代表什么啊？？

...全文

458 5 打赏收藏转发到动态举报

写回复

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

onlineboy 2003-04-06

打赏
举报

回复

这是DOS下的文件格式
.代表本级子目录
..代表上级子目录

你的代码是要找出当前目录的子目录
所以要把这两个去除

笨狗先飞 2003-04-06

打赏
举报

回复

目录一
|
|--- 目录二 (当前)
|
|---目录三
|
-----目录四

. = 目录二
.. = 目录一

fhwei 2003-04-06

打赏
举报

回复

那么要据以上所说，MyName　在使用Dir检索一个路径时，，所得到的还会有本级目录和
上级目录了？？？？？

chenyu5188 2003-04-06

打赏
举报

回复

你学过DOS吗？？？

.代表当前目录。
..代表当前目录的上层目录。

笨狗先飞 2003-04-06

打赏
举报

回复

. 是本级目录
.. 是上级目录

vb数据库实例，简单的数据库实例应用 Dim intResult, i, intFind As Integer MyPath = "d:\" MyName = Dir(MyPath, vbDirectory) ReDim Mydirectory(intResult) MyName = Dir MyFile = "d:\1" & "\" & Form2.Text1.Text & Form2.Text2.Text & ".xls" intFind = Len(Dir(MyFile)) If intFind <> 0 Then Set oleExcel = CreateObject("Excel.Application") oleExcel.Visible = True oleExcel.Workbooks.Open FileName:="d:\1\" & Form2.Text1.Text & Form2.Text2.Text & ".xls" Else MsgBox "没有此文件！" End If

遍历文件夹下所有文件、文件夹。输出到列表框中。=.=！

今天学到了有关文件的创建以及读写的一些操作 Dim MyFile,MyName,MyPath 1.文件另存为 2.查找指定目录的文件名 MyName = Dir(MyPath,vbDirectory) '指定的是在MyPath这个路径下的文件名，从第一个文件开始，这里我们可以做一个循环，循环体内不要忘记写上MyName=Dir，表示寻找下一个文件了 3.查找指定目录下指定后缀的文件名

语法: Dir[(pathname[, attributes])] Dir 函数的语法具有以下几个部分：以 vbDirectory 属性来调用 Dir 不能连续地返回子目录。!!! 以下是VB帮助自带查目录的例子，明确的指出目录必须要用GetAttr！！！ ' 显示 C:\ 目录下的名称。 MyPath = "c:\" ' 指定路径。 MyName = Dir(MyPath, vb

Sub test() Dim Mypath, MyName Dim n As Integer n = 0 Dim MyStr() As String, wz As Integer Mypath = ThisWorkbook.Path & "\第三方2\" ' 指定路径。 MyName = Dir(Mypath, vbDirectory) ' Do While

7,785

社区成员

197,585

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章