strConfirm = InputBox("Are you sure you want to proceed?" & Chr(13) & Chr(13) & "Enter Yes to proceed", _
 "Confirmation", "No")

If strConfirm = "Yes" Then
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    objStartFolder = ".\"
    ShowSubFolders objFSO.GetFolder(objStartFolder)
    WScript.echo "Finished"
Else
    WScript.echo "Cancelled"
End If

Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        Set objFolder = objFSO.GetFolder(Subfolder.Path)
        Set colFiles = objFolder.Files

        If Not objFSO.FileExists(objFolder & "\" & "folder.jpg") Then
            For Each objFile in colFiles
                objFSO.MoveFile objFolder & "\" & objFile.Name, objFolder & "\" & "folder.jpg"
                Exit For
            Next
        End If

        ShowSubFolders Subfolder
    Next
End Sub