phantom_2005
Messages postés184Date d'inscriptionmercredi 8 décembre 2004StatutMembreDernière intervention 1 septembre 20101 4 janv. 2005 à 11:01
Tu as aussi:
Dim str As String, StrFile As String, StrFold As String
Dim pos As Integer, Posi As Integer
'Initialise le début de la recherche
Posi = 1
str = InputBox("Entrer le chemin du fichier", "Ce fichier existe-t-il?")
'Recherche de la position du dernier ""
While Posi <> 0
pos = Posi
Posi = InStr(pos + 1, str, "", 0)
Wend
'Affichage du nom de fichier sans le chemin
StrFile = Right(str, (Len(str) - pos))
'Affichage du chemin du fichier sans le fichier
StrFold = Left(str, (Len(str) - Len(StrFile)))
'Détermination de l'existance du fichier
If Dir(str) <> vbNullString Then
MsgBox "Le fichier " & StrFile & " existe" & vbCrLf & "dans le répertoire " & StrFold ", vbInformation, "Existant"
Else
MsgBox "Le fichier " & StrFile & " n'existe pas" & vbCrLf & "dans le répertoire " & StrFold, vbInformation, "Inexistant"
End If
nh69
Messages postés1Date d'inscriptiondimanche 10 juillet 2005StatutMembreDernière intervention10 juillet 2005 10 juil. 2005 à 08:21
Bonjour à tous,
Je cherche un code pour vérifier l'existance d'un fichier sur un serveur différent de clui ou est stocké ma page ASP.
pour etre claire ma page ASP est sur le serveur 191.122.155.47 et je voudrais vérifier l'existance d'un fichier sur le serveur 190.111.20.30.
Merci de m'aider.