Lokal søgning efter mp3

I VBScript?! I VB kan det lade sig at gøre at lave rekursive funktioner, men i VBscript virker det nada :-(

//>Rune

ok.. hmmm... øv øv.. hva så med en almindelig batch fil? kan man vha "dir *.mp3 /s" finde alle mp3 filer og rapportere dem tilbage i en email?

Sikke noget sludder ;-)

Kig på spm. 419257 (http://www.eksperten.dk/spm/419257) hvor jeg har postet et svar der søger efter en fil vha. rekursion. Det kan relativt let tilrettes til at søge efter og slette mp3-filer.

Skriv hvis du skal have hjælp til dette...

Værs'go

Set fso = CreateObject("Scripting.FileSystemObject")

sSearchFrom = "c:\" 'sti til søgningens start
sExtToSearchFor = "mp3"

Function FindFile(p_sFromFolder, p_sExt)

  Set oCurFolder = fso.GetFolder(p_sFromFolder)

  For Each subfolder in oCurFolder.SubFolders
    FindFile p_sFromFolder & "\" & subfolder.Name, p_sExt
    Set f = subfolder.Files
    For each file in f
        If LCase(Right(file.Name, 3)) = "mp3" Then
          MsgBox "Found: " & file.Name
        End If
    Next
    Set f = Nothing
  Next
End Function

'Disable error handling in case of any permission problems on folders
'On Error Resume Next

'Start the search
FindFile sSearchFrom, sExtToSearchFor

MsgBox "Done"

Set fso = Nothing
Set oCurFolder = Nothing

Tak skal du have. Det virker perfekt efter hensigten.

Det er godt der er nogle herinde der er hårde til VBscript.