Salut!!!
J'ai un gros problème avec la manipulation de fichier TXT et avec le FSO.
Lorsque je lance une bête application pour lire la date à laquelle le fichier a été modifier pour la dernière fois et bin le server tourne dans le beurre. Y se passe rien!!!!!! voici le code:
<%@ Language=VBScript %>
<%
Dim objFSO,objFile
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
Set objFile=objFSO.GetFile(server.MapPath("test.txt"))
response.write "<br>Le fichier test.txt a été modifié pour la dernière fois le "
response.write objFile.DateLastModified
set objFile=nothing
set objFSO=nothing
%>
Le fichier test.txt est bien présent!!!!
J'ai le même résultat quand je veux écrire dans un fichier:
Ajouter=true
If Ajouter = True Then
LeMode = 8
Else
LeMode = 2
End If
' tu instancies l'objet
Set fso= Server.CreateObject("Scripting.FileSystemObject")
If 0 = Err Then
If fso.FileExists(server.MapPath("test.txt")) then
' tu ouvres le fichier
LeFichierTexte = fso.OpenTextFile(server.MapPath("test.txt"), LeMode, True)
LeFichierTexte.Write Contenu
LeFichierTexte.Close
Set LeFichierTexte = Nothing
Set fso = Nothing
else
response.write("Le fichier n'existe pas")
end if
ELSE
response.write("Le composant n'existe pas!")
END IF
(c'est le script de Kiminox que j'ai testé) ;)
Dans le premier cas je crois bien que ça se plante au niveau du:
Set objFile=objFSO.GetFile(server.MapPath("test.txt"))
et pour le second script au niveau de:
LeFichierTexte = fso.OpenTextFile(server.MapPath("test.txt"), LeMode, True)
Alors si je teste au bout d'une dizaine de fois et bin j'ai un message d'erreur comme kwa le serveur ne peut afficher la page car il y a trop d'utilisateur connecté en même temps. A croire que toutes les applications que j'ai lancé pour tester sont restés ouvertes.
Alors moi je comprend plus rien!!!!! Chai pas si c'est au niveau du serveur, de mon firewall, ou de mon code.
Aidez moi si vous plééééééééééééééé !!!!!!
Merci D'avance
Darthsidious