Erro de caminho

[Andre H.S. Mendes]

Olá pessoal.

Baixei a loja de comercio online da LOCAWEB porem segundo eles a loja foi projetada para ser instalada no servidor deles ( é claro ).

coloquei em um servidor gratuito por 30 dias para testar. ocorreu o seguinte erro.

----------------------------------------------------------------------=

Microsoft VBScript runtime error '800a004c'

Path not found

/funcoes/funcoes_config_loja.asp, line 77

----------------------------------------------------------------------=

a loja está no diretório principal do servidor.

LINHA DO ERRO:

----------------------------------------------------------------------=

'Cria o diretório dadosloja_nomedaloja em DADOS para gravação dos arquivos de gerenciamento da loja
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FolderExists(Application("DiretorioDados")) = False Then
#LINHA 77        objFSO.CreateFolder(Application("DiretorioDados"))
    End If
    Set objFSO = Nothing

    Application("DiretorioAtualizacaoProdutos") = Application("DiretorioDados") &"atualizacao_produtos\"
    Application("DiretorioConfig") = Application("DiretorioLoja") &"config\"
    Application("DiretorioPedidos") = Application("DiretorioDados") &"pedidos_loja\" 
    Application("DiretorioResultsVBV") =  Application("DiretorioDados") & "resultsVBV\"
    Application("LogsADM") = Application("DiretorioDados") & "LogsADM\"
    Application("DiretorioImagensConteudo") = Application("DiretorioConfig") & "imagens_conteudo"

---------------------------------------------------------------------= CÓDIGO QUE ACREDITO Q FAZ PARTE DO ERRO. ---------------------------------------------------------------------=

Sub identifica_caminhos()

    REM Identifica o diretório onde se encontra os arquivos da loja.
    VarCaminhoArq = request.servervariables("PATH_INFO")
    ArrCaminhoArq = Split(VarCaminhoArq,"/")
    For I = 0 to (Ubound(ArrCaminhoArq) - 1)
        VarUrl_Loja = VarUrl_Loja &"/"& ArrCaminhoArq(I)
    Next

    REM Identifica o usuário.
    REM O usuário é o mesmo que o de FTP da 765254 .
    VarCaminhoFis = request.servervariables("PATH_TRANSLATED")
    ArrCaminhoFis = split(VarCaminhoFis,"\")
    PathFis = Ubound(ArrCaminhoFis) - 1
    VarUsuario = ArrCaminhoFis(2)

    REM Caminho fisico da aplicação.
    VarCaminhoApp = request.servervariables("APPL_PHYSICAL_PATH")
    ArrCaminhoApp = split(VarCaminhoApp,"\")
    PathApp = Ubound(arrcaminhoApp) - 1

    REM Verifica se o diretório de aplicação é o mesmo onde se encontra os arquivos da loja.
    REM Esta condição é usada para identificar se o diretório está devidamente configurado com aplicação.
    If UCase(ArrCaminhoFis(PathFis)) <> UCase(ArrCaminhoApp(PathApp)) Then
        Session("caminhoApp") = "diferente"
        session("PathFis") = ArrCaminhoFis(PathFis)
    End If

    REM Verifica qual o drive que está instalada a loja
    VarDrive = MID(Request.ServerVariables("APPL_PHYSICAL_PATH"),1,Instr(Request.ServerVariables("APPL_PHYSICAL_PATH"),"\"))

    REM Caminho dos diretórios da loja    
    If LCase(ArrCaminhoFis(PathFis)) <> "web" Then 
        If ArrCaminhoFis(PathFis) = "painelctrl" Then
            Application("DiretorioLoja") = VarDrive & "home\"&VarUsuario&"\web\"&ArrCaminhoFis(PathFis-1) & "\"
            If Right(VarUsuario,3) <> "web" Then
                Application("DiretorioLoja") = Replace(LCase(Application("DiretorioLoja")),"web\web\","web\")
            Else
                Application("DiretorioLoja") = Replace(LCase(Application("DiretorioLoja")),"web\web\web\","web\web\")
            End If
            Application("nomeConfiguracao") = ArrCaminhoFis(PathFis-1)
        Else
            Application("DiretorioLoja") = VarDrive & "home\"&VarUsuario&"\web\"&ArrCaminhoFis(PathFis) & "\"
            Application("nomeConfiguracao") = ArrCaminhoFis(PathFis)
        End If
    Else
    Application("DiretorioLoja") = VarDrive & "home\"&VarUsuario&"\web\"
    Application("nomeConfiguracao") = "web"
    End if

    REM Application("Loja")= O mesmo que o usuário de FTP na 765254 
    Application("Loja") = VarUsuario

    Application("DiretorioDados") = VarDrive & "home\"&VarUsuario&"\dados\dadosloja_"&Application("nomeConfiguracao") & "\"

Obrigado pela ajuda des de já!

[Notax]

Olha che... Servidor Grátis com FSO? Acho brabo hein... todo caso... sugiro que entre em contato com esse servidor e sertifique-se quanto a liberação para uso de FSO...

[]'s Notax

[Andre H.S. Mendes]

Notax oque seria exatamente esse FSO? um tipo de banco de dados??

vlw

[Notax]

FSO a sigla significa: File System Object e serve exatamente para manipular arquivos, diretórios e driver...

É muito utilizado em e-comerce para manipular os arquivos de imagens, pastas de arquivamento e etc.

Também é utilizado em outros diversos tipos de APP que precisam desse tipo de manipulação...

[]'s Notax