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