Slet automatsik mappe vis den ikke indeholder nolge filer

Dim objFSO : objFSO = Server.CreateObject( "Scripting.FileSystemObject" )
Dim objFolder
Dim strFolder : strFolder = Server.MapPath( Request.QueryString( "folder" ) )
If( objFSO.FolderExists( strFolder ) Then
    Set objfolder = objFSO.GetFolder( strFolder )
    if( objFolder.Files.Count = 0 AND objFolder.SubFolders.Count = 0 ) Then
        objFSO.DeleteFolder( strFolder )
        'Response.Redirect
    End If
End if

/nute

jeg får denne fejl:

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/img/showimg.asp, line 24

If( objFSO.FolderExists( strFolder ) Then
-------------------------------------^

well ... den fejlmeddelelse er jo rimelig klar ... der mangler en ')' i den linje du har postet ...

If( objFSO.FolderExists( strFolder ) ) Then

ja det fanmdt jeg os hurtigt ud af men nu ser den sådan ud:
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method

/img/showimg.asp, line 24

Min kode ser således ud:
Dim objFSO
Dim objFolder
Dim strFolder
objFSO = Server.CreateObject("Scripting.FileSystemObject")
strFolder = Server.MapPath("\img\images\" & Request.QueryString("folder"))
Set objfolder = objFSO.GetFolder(strFolder)
    if (objFolder.Files.Count = 0 AND objFolder.SubFolders.Count = 0) Then
        objFSO.DeleteFolder(strFolder)
        Response.Redirect "billed.asp"
    End If

Linie 24 er linien: Set objfolder = objFSO.GetFolder(strFolder)

ups ... endnu en lille bug ... du skal bruge 'Set' foran initialiseringen af objFSO:

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

/nute

Kanont du skla have mange tak:-)

selv tak :o]