Jon Tydda
Jon.Tydda at alcontrol.co.uk
Wed Jun 13 06:17:41 CDT 2007
Here's the code, as promised - file sent to Arthur off list. Jon Sub GetFileList() Dim iCtr As Integer Dim x As String On Error GoTo HandlErr Cells.Select Selection.ClearContents Range("A1").Select x = InputBox("Please use the format: c:\music\", "Where do you want to search?") With Application.FileSearch .NewSearch .LookIn = x .SearchSubFolders = True .Filename = "*." & ActiveSheet.Name If .Execute > 0 Then For iCtr = 1 To .FoundFiles.Count Cells(iCtr, 1).Value = .FoundFiles(iCtr) Next iCtr End If End With HandlErr: Exit Sub End Sub -----Original Message----- From: Arthur Fuller [mailto:fuller.artful at gmail.com] Sent: Tuesday, June 12, 2007 5:49 PM To: Discussion of Hardware and Software issues Subject: [dba-Tech] RealPlayer db format? Does anyone know how RealPlayer stores its data? I would like to inhale my Real db into Access, with all the disc and track info. I have approximately 1000 CDs recorded so far (1/3 the way through the stack) and I would love to have all the info in an Access db. Arthur _______________________________________________ dba-Tech mailing list dba-Tech at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/dba-tech Website: http://www.databaseadvisors.com The information in this e-mail is confidential and may also be legally privileged. The contents are intended for recipient only and are subject to the legal notice available on request from : webmaster at alcontrol.co.uk ALcontrol Laboratories is a trading division of ALcontrol UK Limited. Registered Office: Templeborough House, Mill Close, Rotherham, S60 1BZ. Registered in England and Wales No 4057291