Probleme avec Scripting.FileSystemObject en ASP

[sven]

Je tourne sous XP pro avec IIS

 

Je n'arrive pas a faire fonctionner la fonction "Getfile".

FileExists marche bien par contre .

Ca doit etre un probleme de droit d'acces au fichier non ? comment resoudre le probleme ? merci de votre aide.

 

Voici mon code mais je pense que c'est correct :

 

set fs = CreateObject("Scripting.FileSystemObject")

nFile = Server.MapPath(".") & "" & "fichier.txt"

if fs.FileExists(nFile) then

set MonFichier = fs.GetFile(nFile)

' le fichier existe

response.write("Date de création: " & MonFichier.DateCreated)

set MonFichier = nothing

else

' le fichier n'existe pas

end if

set fs = nothing

[leneuf22]

Peut-être qu'en simplifiant ton code...

 

set fs = Server.CreateObject("Scripting.FileSystemObject")

nFile= Server.MapPath("chemin de ton fichier") 'Pas la peine de se compliquer les affaires !

if fs.FileExists(nFile) then

set MonFichier = fs.GetFile(nFile)

' le fichier existe

response.write("Date de création: " & MonFichier.DateCreated)

set MonFichier = nothing

else

' le fichier n'existe pas

end if

set fs = nothing

[sven]

c pas un probleme , avec mon code , c vrai que comme ca c'est un peut plus simple mais ca ne resoud pas l'erreur d'acces. la fonction Fileexists marche mais Getfile ne marche pas. Ma question etait comment regler les droit d'acces aux fichiers ?

[leneuf22]

Essaye ce code :

 

On Error Resume Next 'NOTE BIEN CETTE LIGNE !!

set fs = Server.CreateObject("Scripting.FileSystemObject")

set nFile = fs.GetFile("chemin du fichier")

if (fs.FileExists(nFile)) then

' le fichier existe

set MonFichier = fs.GetFile(nFile)

response.write("Date de création: " & MonFichier.DateCreated)

set MonFichier = nothing

else

' le fichier n'existe pas

end if

set fs = nothing

 

Ou, pour simplifier encore...

 

On Error Resume Next 'NOTE BIEN CETTE LIGNE !!

set fs = Server.CreateObject("Scripting.FileSystemObject")

set MonFichier = fs.GetFile("chemin du fichier")

if (fs.FileExists(MonFichier)) then

' le fichier existe

response.write("Date de création: " & MonFichier.DateCreated)

set MonFichier = nothing

else

' le fichier n'existe pas

set MonFichier = nothing

end if

set fs = nothing

 

Voilà, si ça ne marche pas, ne m'en veut pas, je n'ai jamais fait d'ASP (juste du VBScript, ça aide).

[sven]

Au niveau du code aucun probleme , c plus court comme ca , merci . Mais la fonction Getfile ne marche pas. ce n'est pas un probleme de code. Je pense que je ne dois pas avoir les droits d'acces a ce fichier, mais je ne sais pas comment regler ça. Ca doit etre dans les proprietes de IIS Manager mais je sais pas comment faire.

Quelqu'un sait comment gerer les droit d'acces sous IIS ?

 

Merci de votre aide !