Eksisterer fil af typen .ldb

<%
Dim objFSO : Set objFSO = Server.CreateObject( "Scripting.FileSystemObject" )
Dim objFolder
Dim objArrFolders(3)
Dim strFileType : strFileType = ".ldb"

objArrFolders(0) = Server.MapPath( "[FOLDER 1]" )
objArrFolders(1) = Server.MapPath( "[FOLDER 2]" )
objArrFolders(2) = Server.MapPath( "[FOLDER 3]" )
objArrFolders(3) = Server.MapPath( "[FOLDER 4]" )

for i = LBound( objArrFolders ) to UBound( objArrFolders )
    Set objFolder = objFSO.GetFolder( objArrFolders(i) )
   
    for each file in objFolder.Files
        if( InStr( file.Name, strFileType ) = ( LEN( file.Name ) - ( LEN( strFileType ) - 1 ) ) ) then
            Response.Write( file.name & "<br>" )
        end if
    next
next
%>

Det er jo godt nok ASP (VB Script)
Kan man lave ovenstående som .vbs/.wsh script?

ah ... well ... det er jo næsten identisk:

Dim objFSO : Set objFSO = CreateObject( "Scripting.FileSystemObject" )
Dim objFolder
Dim objArrFolders(3)
Dim strFileType : strFileType = ".ldb"

objArrFolders(0) = "[STI TIL FOLDER 1]"
objArrFolders(1) = "[STI TIL FOLDER 2]"
objArrFolders(2) = "[STI TIL FOLDER 3]"
objArrFolders(3) = "[STI TIL FOLDER 4]"

for i = LBound( objArrFolders ) to UBound( objArrFolders )
    Set objFolder = objFSO.GetFolder( objArrFolders(i) )
   
    for each file in objFolder.Files
        if( InStr( file.Name, strFileType ) = ( LEN( file.Name ) - ( LEN( strFileType ) - 1 ) ) ) then
            ' LAV DET FU ØNSKER MED FILERNE
        end if
    next
next

/nute

Eller kan den ændres til at tage en fysisk sti istedet?

Sidste spørgsmål:
I dit sidste eksempel, hvordan får jeg vist filnavnet?

I stedet for "'LAV DET DU ØNSKER MED FILERNE" skrive du f.eke.:
WScript.Echo file.Name

Takker MANGE gange!
(hvad med output til fil??? :))

Det er lidt mere besværligt, hvis de oprettet et spg. på det skal jeg gerne svare.