Access开发交流杂谈--2013-10-15--Access培训群(195471449)

yinxiaobao18

无名小卒 于2013-10-15 22-30-19：
[qqimg]{42A8E784-7C91-B38A-A74E-3BF797F66759}.jpg[/qqimg]这个行呢

Office中国群管

席主习 于2013-10-15 22-30-30：
Option Compare Database
'判断文件夹是否存在：
Public Function FileFolderExists(strFullPath As String) As Boolean
    On Error GoTo EarlyExit
    If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True
EarlyExit:
    On Error GoTo 0
End Function

''判断文件夹是否存在：
'Public Sub TestFolderExistence()
'    If FileFolderExists("c:\windows\") Then
'        MsgBox "指定的文件夹存在！"
'    Else
'        MsgBox "指定的文件夹不存在！"
'    End If
'End Sub
'
''判断文件是否存在:
'Public Sub TestFileExistence()
'    If FileFolderExists("d:\Book1.xls") Then
'        MsgBox "指定的文件存在！"
'    Else
'        MsgBox "指定的文件不存在！"
'    End If
'End Sub

yinxiaobao18

无名小卒 于2013-10-15 22-31-36：
这是判断某一文件夹是否存在,而不是我要达到的目的,我要的是某文件夹中的所有文件夹.

Office中国群管

席主习 于2013-10-15 22-32-27：
你是要学习这种方法，还是在编程中需要解决问题？

yinxiaobao18

无名小卒 于2013-10-15 22-33-28：
比如在文件夹中存入许多照片,我要将这些照片全部存放在数组中,以便调用.

Office中国群管

席主习 于2013-10-15 22-34-11：
那你的文件夹和文件，也是在相对于你程序的某个路径里面吧

yinxiaobao18

无名小卒 于2013-10-15 22-34-22：
是的,

Office中国群管

席主习 于2013-10-15 22-34-27：
而不是直接指定在D盘或者C盘吧

yinxiaobao18

无名小卒 于2013-10-15 22-34-40：
那只是测试而已.

Office中国群管

席主习 于2013-10-15 22-34-52：
思路