Discussion :

[maxos75]

Bonjour,
Je souhaite verifier l'existence d'un fichier qui n'est pas sur le répertoire du site mais sur la même machine.
j'éssaie

Dim FS,F
Set FS = CreateObject("Scripting.FileSystemObject")
If FS.FileExists("\\Srv-inet\d$\Documents\Réseau\CISCO.xls") then
response.write("ok")
end if

Quand je fais un
mais ça donne rien ... à part

VBScript erreur '800a01a8'

[tomy4ever]

Hmm bizarre.. moi quand je fais ça pourtant ça marche, mais je pense que c'est tou d$ qui pose problème. Il s'agit je suppose du disque d qui est partagé? faut être sur que tu dois bien taper d$; sinon tu vas dans ton browser et tu met \\Srv-inet
et tu regarde ce qu'il y a, si ton "d$" n'existe pas, c'est que c'est pas ça qui faut mettre

donc sur mon sur mon server j'ai un fichier par exemple "APInstall.log" mais pas "APInstall2.log" donc quand je lance le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
dim objFSO,sMapPath, fileToCheck
Set objFSO = CreateObject("Scripting.FileSystemObject")
sMapPath = "\\servername\Disk_C\"
fileToCheck = "APInstall2.log"
response.Write(objFSO.FileExists(sMapPath&fileToCheck)&"<br>")

il écrit false, et avec le code suivant il dit true:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
dim objFSO,sMapPath, fileToCheck
Set objFSO = CreateObject("Scripting.FileSystemObject")
sMapPath = "\\servername\Disk_C\"
fileToCheck = "APInstall.log"
response.Write(objFSO.FileExists(sMapPath&fileToCheck)&"<br>")

sinon ce que tu peux essayer c'est ce script là:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
dim objFSO,objFile,objFolder,sMapPath
Set objFSO = CreateObject("Scripting.FileSystemObject")
sMapPath = "\\servername\Disk_C\"
Set objFolder = objFSO.GetFolder(sMapPath)
For Each objFile in objFolder.Files
response.write(objFile.Name&"<br>")
Next

pour voir déjà si tu te trouves à la bonne place.

[maxos75]

Alors . . .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
response.Write(request.Form("File1")&"<br>")
dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
response.Write(objFSO.FileExists(request.Form("File1"))&"<br>")
message="ok"

donc quand je prends l'adresse apparue grace a response.write et que je la colle dans le navigateur le fichier s'ouvre par contre le teste d'existence m'affiche Faux. alors que le fichier existe bien
cf :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
\\Srv-inet\Base\thebase_V1.mdb
Faux

J'ai essayé avec d'autres formats de fichiers même résultat...
Quelqu'un peut m'aider ?