[RBASE-L] - Re: Data File Relocation Routine

[Jason Kramer]

Bruce,     Since you already have all the information in Excel, you can do the work with VBA. Option Explicit Public Sub MoveSort()     Dim fso As Object     Dim iLoop As Integer, iSNCol As Integer, iFileSetCol As Integer         iSNCol = 1     iFileSetCol = 2     Set fso = CreateObject("scripting.filesystemobject")         For iLoop = 2 To 11         fso.movefile "d:Common\" + CStr(Cells(iLoop, iSNCol).Value) + ".*", "d:humpty\" + Cells(iLoop, iFileSetCol).Value     Next iLoop         MsgBox "All files moved.", vbOKOnly, "DONE" End Sub Make sure to set iSNCol and iFileSetCol to the be correct column for your worksheet.  These have to be numbers, so count over, don't use the letter (A = 1, D = 4, etc...).  Also, set the loop start and stop to be the first and last row, make sure you don't have blank lines in the range of rows, and adjust the movefile line as necessary to account for your file\folder structure.     This routine assumes that all File_SNs are unique.     If you want an example, let me know and I can send it to you directly.                                                         Thanks,                                                         Jason Jason Kramer University Archives and Records Management 002 Pearson Hall (302) 831 - 3127 (voice) (302) 831 - 6903 (fax) On 3/7/2012 1:07 PM, Bruce Chitiea wrote: Jason, thank you. More exactly: 1. R:Base Table: file_sn integer file_set text 1 file_sn file_set 10001 a 10002 a 10003 b 10004 c 2. Source Folder: d:\common - containing serialized file entries in format <file_sn>.<filename>.<ext>. <filename> does NOT include the file_set tag. The <file_sn> uniquely identifies the file. 3. Target Folders: d:\humpty\a d:\humpty\b d:\humpty\c d:\humpty\d 4. Wish to MOVE files from d:\common to d:\humpty\x=[ a b c d ] - to prevent further duplication. 5. Excel file was used to manipulate the file list, and generate a series of file-content-and-meaning flags. These become 'metadata' for further file manipulation outside of this process. MTIA Bruce ******************************************************* -------- Original Message -------- Subject: [RBASE-L] - Re: Data File Relocation Routine From: Jason Kramer <jjkra...@udel.edu> Date: Wed, March 07, 2012 8:27 am To: rbase-l@rbase.com (RBASE-L Mailing List) Bruce,     If I understand correctly, you have a table that looks like this: file_sn    file_set 10001        a 10002        a 10003        b 10004        c     A single directory with all files in it, and directories named a,b,c,d that you want to copy (or move) the files into, and an Excel file with the same information?  Is that correct?                                                                 Thanks,                                                                 Jason Jason Kramer University Archives and Records Management 002 Pearson Hall (302) 831 - 3127 (voice) (302) 831 - 6903 (fax) On 3/7/2012 11:20 AM, Bruce Chitiea wrote: All: RBASE 91_64 9.1.5.20214 have PluginPowerPak 91_64 Windows 7 GOAL Distribute classed sets of data files from a common folder to their respective set folders. BACKGROUND For a client with severe data-file duplication and file-content-identification issues ranging across several thousand files, I've: - created a backup working set of those files - pre-pended a 5-digit serial number to each file-copy into the format: xxxxx.filename.ext - aggregated all files into a common folder - successfully parsed the folder's file list into text fields: xxxxx filename ext filesize datestamp - processed these in Excel to identify duplication and content-meaning, and to class files into four sets: [ a b c d ] - successfully Gateway'd the file serial number and file set identifier into a two-column R:Base table: file_sn [ 10001,10002...2nnnn ] file_set [ a b c d ] - created four empty file folders, each reserved for one file class NEED I'm thinking the 'file_sn' and 'file_set' values are sufficient input to a process that 'walks' the common file list and performs the distribution. I have no such routine and I'm SO FAR behind the 8-ball on this job ... What's the best way to handle this? MTIA Bruce Chitiea SafeSectors, Inc.