1 svar · 208 visningar · startad av Jesper T
Palleman har någon gång bifogat ett script för att söka efter filer:
Jag skulle vilja komplimentera med wildcard-sökning, så att man te.x. kan söka på min* och lista samtliga filer som i detta fall börjar på "min". Tips?
strSearchFile = "min-fil.asp" '<--## Filen du söker efter
MyPath = Server.MapPath(".")
Set fso = CreateObject("Scripting.FileSystemObject")
Set gfo = fso.GetFolder(MyPath)
Set drive = gfo.Subfolders
For Each Folder in drive
strFolders = strFolders & Folder.Name &","
Next
arrFolders = Split(strFolders, ",",-1, 1)
For Each FolderName in arrFolders
If fso.FileExists(MyPath &"/"& FolderName &"/"& strSearchFile) Then
Response.Write ""&_
"<b>"& strSearchFile &"</b><br>Denna filen finns i mappen "&_
"<a href="& MyPath &"/"& FolderName &"/"& strSearchFile &" target=_blank>"& FolderName &"</a><br><br>"
End If
Next
Set fso = Nothing
Set gfo = Nothing
Set drive = Nothing
Du får nog göra det i två steg. Första steget så lagrar du alla filer i mappen i en Array eller något annat praktiskt med metoden GetFileName. Sedan får du köra en Filter på den Arrayen och lista det som blir kvar.
Det verkar inte som om det går att använda wildcards alls med GetFileName och FileExists.
