关于几个VBA操作文件的问题请教

yodong

在当前数据库目录下有一SCAN目录，这个目录每天都存放一到二张新的相片，现在我想建一窗体，窗体中放一文本框和一个命令按钮，我想按一下此按钮把最新的相片移动到PIC目录下，并改文件名为文本框中输入的名字。如果有二张以上的相片，则移动最新日期的那一张。用VBA操作文件还是第一次做，还不是很懂，那位朋友能提示下，谢谢！！

andymark

并没有完全按你的意思去做，自动选择最新的文件未能解决

ADAM

我補充一下吧:

如下代碼加入:
'獲取指定目錄下,最后存取日期之檔案名
Function LastModiFile(folderspec) As String
    Dim fs, f, f1, fc
    Dim time1 As Date
    Dim Name1 As String
   
    time1 = Now()
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.Files
    For Each f1 In fc
        If f1.datelastmodified < time1 Then
        time1 = f1.datelastaccessed    'datelastmodified 最后修改日期
        Name1 = f1.Name
        End If
    Next
LastModiFile = Name1
End Function
'調用函數,
Private Sub Command3_Click()
MsgBox LastModiFile(CurrentProject.Path)
End Sub

yodong

非常感谢andymark,ADAM两位,
在ACCESS中国论坛,真是感到温暖,在困难的时候得到帮助,也感觉到各位朋友的无私.谢谢!!