Tegn som kan betyde alt ligesom stjerne i FSO

du bliver nok nødt til at iterere gennem alle filer til du støder på en jpg:


Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objFolder : Set objFolder = objFSO.GetFolder( Server.MapPath(".") )
Dim bHasFiles : bHasFiles = False

for each objFile in objFolder.Files
    if( objFSO.GetExtensionName( objFile.Path ) = "dd" ) Then
        bHasFiles = True
        exit for
    End If
next
if( NOT bHasFiles ) Then
    objFSO.DeleteFolder( objFolder.Path )
End if

/nute

ups ... denne linje:

if( objFSO.GetExtensionName( objFile.Path ) = "dd" ) Then

skal være :

if( LCase( objFSO.GetExtensionName( objFile.Path ) ) = "jpg" ) Then

/nute

Til Nute> nu er det løst måtte bare prøve en anden formulaering end i det andet spøgsmål men det drejejde sig om det samme

fino :)