Program eller script som...

Finns det nåt program, script som lägger alla filnamn i en mapp i en databas?

jag har ett script som jag använder som gör det. Den lägger in alla namn på bilder i en katalog i en databas.
det är asp-kod för övrigt..

Dim strFolderPath
strFolderPath = Server.MapPath("\bild") & "\" & sektionsnamn & "\" & katalog & "\"
Response.Write strFolderPath

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

	Set objFolder = objFSO.GetFolder(strFolderPath)

		'Response.Write "ANTAL FILER: " & objFolder.Count & "<BR><BR>"

		For Each File IN objFolder.Files
			strFileExt = objFSO.GetExtensionName(File.Path)

			Select Case UCase(strFileExt)
				Case "JPG", "jpg"
				strFileName = File.Name
				Response.Write  strFileName & "<br/>"
				SQL = "INSERT INTO bilder (gid, filnamn, klick) VALUES ('"&gid&"', '"&strFileName&"', 0)"
				'Response.Write SQL & "<br/>"
				RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
			End Select
		Next
	Set objFodler = Nothing

Set objFSO = Nothing

detta är ett urklipp ur min kod, och jag skippade den övre delen där jag öppnar databasen och så

asbra!
tack!
:bire