Microsoft VBScript runtime error '800a004c - Path not found

[elements.guiga 0]

Boa tarde, Galera!!

Por favor me ajudem, estou com problemas em minha aplicação e não estou conseguindo encontrar uma solução.

"Microsoft VBScript runtime error '800a004c'

Path not found

/dldctr/funcoes/funcoes_config_loja.asp, line 77"

Vlw, Abraços!

Att;

Rodrigo

Cel: 11 99755-5562

E-mail: rodrigo@pixelltecnologia.com.br

[DSerma 19]

Path not found = caminho não encontrado.

[elements.guiga 0]

Correto, o problema é que eu não tenho experiencia com asp e não sei como fazer ele enxergar essa pasta no código. O problema fala sobre o erro na linha 77 mas estou na linho do código e não sei oque fazer.

 

Código: 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") & "\"

'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

objFSO.CreateFolder(Application("DiretorioDados")) **LINHA 77**

End If

Set objFSO = Nothing