2个问题，高手帮忙

Question

1.将一个目录中的文件导入，可能有data001.txt，data001.xls,data002.txt,data002.xls
如何让程序自动按照这种顺序导入data002.xls——data002.txt——data001.xls——data001.txt
2.我的报表是用access2000的，客户装的是XP，每次打印都会出现对话框，问是否打开access文件
有什么方法能解决？

Answer 1

回复人： viena(维也纳nn)(实心木头人) ( ) 信誉：1 
信誉：1
真牛啊

Answer 2

1。先把所有文件名读读取 放到一个列表里（譬如 collection,傻瓜一点放到 ListBox 因为他有排序功能，Sorted=True ）然后进行排序，再导入

Answer 3

baoaya(点头) ,怎么读取所有文件名，我只能读到1个，用dir
其实我需要的是在文件夹中找到日期最靠后的，也就是降序排列中第一个的

Answer 4

第一个问题自己解决了
    If Dir(strfile) = "" Then   'If  have not  file found
        MsgBox "导入文件未找到！", vbInformation, "MSG"
        Exit Sub
    End If
    
    FileName = Dir(strfile)
    tempname = Dir(strfile)
    Do While tempname <> ""
        tempname = Dir
        If FileName < tempname Then
            FileName = tempname
        End If
    Loop
第二个问题谁帮帮忙？

Answer 5

不要用ACCESS做报表或者叫客户不要用XP