Office中国论坛/Access中国论坛

标题: 请教版主 [打印本页]

作者: atiger 时间: 2004-11-20 00:54
标题: 请教版主
A表里记录了多个已有文件的路径、文件名、字节大小。B目录下有系列待入库文件。我想完成以下任务：1，将B目录文件逐一记入A表。2，列出A表中相同文件记录（以字节大小相同为标准）。

这些代码该如何写？

作者: 方漠 时间: 2004-11-22 04:08
1。用以下代码，灵活运用一下，INSERT或APPEND都行。Option Compare Database

'列举文件夹内所有文件LIST，但不包括子文件夹。

Sub ShowFileList()

Dim Folderspec As String

Folderspec = "Your Folder"

Dim fs, f, f1, fc, s

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFolder(Folderspec)

Set fc = f.Files

For Each f1 In fc

      s = s & f1.Name

      s = s & vbCrLf

Next

MsgBox s

End Sub

'显示文件大小字节数。

Sub ShowFileSize()

Dim Filespec As String

Dim fs, f, s

Filespec = "Your File"

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile(Filespec)

s = UCase(f.Name) & " uses " & f.Size & " bytes."

MsgBox s, 0, "File Size Info"

End Sub2，列出A表中相同文件记录（以字节大小相同为标准）。

   建一查询即可。追加完后检测查询有无记录，有记录则打开查询。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)