Path: csiph.com!v102.xanadu-bbs.net!xanadu-bbs.net!feeder.erje.net!eu.feeder.erje.net!eternal-september.org!feeder.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: Neil <xxx@gmail.com>
Newsgroups: comp.databases.ms-access
Subject: Re: Copying files with VB statement
Date: Fri, 03 Oct 2014 16:42:35 -0500
Organization: A noiseless patient Spider
Lines: 37
Message-ID: <542F184B.9010509@gmail.com>
References: <542efc65$0$23229$edfadb0f@dtext01.news.tele.dk>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Info: mx05.eternal-september.org; posting-host="9768a1193dc012cfc531ce57a9e79a74"; logging-data="13961"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX19oAlJ1zz0/DgrjD7roPvjl"
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:31.0) Gecko/20100101 Thunderbird/31.1.2
In-Reply-To: <542efc65$0$23229$edfadb0f@dtext01.news.tele.dk>
Cancel-Lock: sha1:MqpKl4kl1nZosWuhdNDFsF7U36o=
Xref: csiph.com comp.databases.ms-access:9974

On 10/3/2014 2:44 PM, PR wrote:
> I have a database with more than 20000 records each representing a
> jpg-file (vintage Danish stereoscopic cards).
> Each record has a number of the format XY1234 and the associated file
> has the name XY1234.jpg placed in a directory …\XY\XY1234.jpg.
> When running a query e.g. pictures from “Greenland” a new table with 300
> records are generated.
> I want to take the filenames from this query and copy the files to a new
> (temporary) directory, so I can burn a CD with the files.
> Is this possible, and how would a VB statement look making the command?:
> “Copy all records from table(query “Greenland”) and paste to directory
> ….\new”
> Any suggestions?
> Peter R.

Function CopyJPGs

Dim rs as recordset
dim lng as long

Const SourceDirectory = "C:\XY\"
Const TargetDirectory = "C:\Temp\"

set rs = currentdb.openrecordset("Greenland", dbopensnapshot)

do until rs.eof
	'This assumes that the field containing the number is called
	'RecNo. Modify to use the actual field name.
	FileCopy SourceDirectory & rs!RecNo & ".jpg", _
                  TargetDirectory & rs!RecNo & ".jpg"
	lng = lng + 1
	rs.movenext
loop

MsgBox lng & " files copied to " & TargetDirectory & ".", vbInformation

End Function