Je d=E9bute en vbscript, voici ce que je souhaite:
Tester la pr=E9sence d'un fichier dans mon rep et ensuite=20
message selon pr=E9sence ou non.
If Monfichier Existe Then
msgbox "Pr=E9sent"
Else
msgbox "Absent"
End if
J'ai le cheminemant certes mais je ne vois pas comment=20
faire cette v=E9rif, j'ai regarder sur le site de=20
http://faq.vb.free.fr, j'ai copi=E9 la syntaxe dans un=20
fichier vbs, mais il me g=E9n=E8re une erreur.=20
J'ai trouv=E9 une autre info ici =E9galement, mais idem, il me=20
g=E9n=E8re une erreur.
Pouvez vous m'auguiller.
Merci
Amicalement
Thierry
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Christophe QUEVAL
Bonjour,
Déclarez un objet FileSystemObject, puis utilisez sa méthode "FileExists"
ou
Avec les APIs : Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long Public Const INVALID_HANDLE_VALUE = -1 Public Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * MAX_PATH cAlternate As String * 14 End Type
Public Function FileExists(sSource As String) As Boolean Dim WFD As WIN32_FIND_DATA Dim hFile As Long hFile = FindFirstFile(sSource, WFD) FileExists = hFile <> INVALID_HANDLE_VALUE Call FindClose(hFile) End Function
Christophe
"Thierry" a écrit dans le message de news:6a5201c401d5$301e4b10$ Bonjour et merci de me lire,
Je débute en vbscript, voici ce que je souhaite: Tester la présence d'un fichier dans mon rep et ensuite message selon présence ou non. If Monfichier Existe Then msgbox "Présent" Else msgbox "Absent" End if J'ai le cheminemant certes mais je ne vois pas comment faire cette vérif, j'ai regarder sur le site de http://faq.vb.free.fr, j'ai copié la syntaxe dans un fichier vbs, mais il me génère une erreur. J'ai trouvé une autre info ici également, mais idem, il me génère une erreur. Pouvez vous m'auguiller. Merci Amicalement Thierry
Bonjour,
Déclarez un objet FileSystemObject, puis utilisez sa méthode "FileExists"
ou
Avec les APIs :
Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA"
(ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long)
As Long
Public Const INVALID_HANDLE_VALUE = -1
Public Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type
Public Function FileExists(sSource As String) As Boolean
Dim WFD As WIN32_FIND_DATA
Dim hFile As Long
hFile = FindFirstFile(sSource, WFD)
FileExists = hFile <> INVALID_HANDLE_VALUE
Call FindClose(hFile)
End Function
Christophe
"Thierry" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:6a5201c401d5$301e4b10$a301280a@phx.gbl...
Bonjour et merci de me lire,
Je débute en vbscript, voici ce que je souhaite:
Tester la présence d'un fichier dans mon rep et ensuite
message selon présence ou non.
If Monfichier Existe Then
msgbox "Présent"
Else
msgbox "Absent"
End if
J'ai le cheminemant certes mais je ne vois pas comment
faire cette vérif, j'ai regarder sur le site de
http://faq.vb.free.fr, j'ai copié la syntaxe dans un
fichier vbs, mais il me génère une erreur.
J'ai trouvé une autre info ici également, mais idem, il me
génère une erreur.
Pouvez vous m'auguiller.
Merci
Amicalement
Thierry
Déclarez un objet FileSystemObject, puis utilisez sa méthode "FileExists"
ou
Avec les APIs : Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long Public Const INVALID_HANDLE_VALUE = -1 Public Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * MAX_PATH cAlternate As String * 14 End Type
Public Function FileExists(sSource As String) As Boolean Dim WFD As WIN32_FIND_DATA Dim hFile As Long hFile = FindFirstFile(sSource, WFD) FileExists = hFile <> INVALID_HANDLE_VALUE Call FindClose(hFile) End Function
Christophe
"Thierry" a écrit dans le message de news:6a5201c401d5$301e4b10$ Bonjour et merci de me lire,
Je débute en vbscript, voici ce que je souhaite: Tester la présence d'un fichier dans mon rep et ensuite message selon présence ou non. If Monfichier Existe Then msgbox "Présent" Else msgbox "Absent" End if J'ai le cheminemant certes mais je ne vois pas comment faire cette vérif, j'ai regarder sur le site de http://faq.vb.free.fr, j'ai copié la syntaxe dans un fichier vbs, mais il me génère une erreur. J'ai trouvé une autre info ici également, mais idem, il me génère une erreur. Pouvez vous m'auguiller. Merci Amicalement Thierry
ng
Salut,
Pour le VBScript, il faudra certainement passer par FSO, pose plutot ta questions sur news:microsoft.public.fr.scripting
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Thierry a écrit :
Bonjour et merci de me lire,
Je débute en vbscript, voici ce que je souhaite: Tester la présence d'un fichier dans mon rep et ensuite message selon présence ou non. If Monfichier Existe Then msgbox "Présent" Else msgbox "Absent" End if J'ai le cheminemant certes mais je ne vois pas comment faire cette vérif, j'ai regarder sur le site de http://faq.vb.free.fr, j'ai copié la syntaxe dans un fichier vbs, mais il me génère une erreur. J'ai trouvé une autre info ici également, mais idem, il me génère une erreur. Pouvez vous m'auguiller. Merci Amicalement Thierry
Salut,
Pour le VBScript, il faudra certainement passer par FSO, pose plutot ta
questions sur news:microsoft.public.fr.scripting
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Thierry <anonymous@discussions.microsoft.com> a écrit :
Bonjour et merci de me lire,
Je débute en vbscript, voici ce que je souhaite:
Tester la présence d'un fichier dans mon rep et ensuite
message selon présence ou non.
If Monfichier Existe Then
msgbox "Présent"
Else
msgbox "Absent"
End if
J'ai le cheminemant certes mais je ne vois pas comment
faire cette vérif, j'ai regarder sur le site de
http://faq.vb.free.fr, j'ai copié la syntaxe dans un
fichier vbs, mais il me génère une erreur.
J'ai trouvé une autre info ici également, mais idem, il me
génère une erreur.
Pouvez vous m'auguiller.
Merci
Amicalement
Thierry
Pour le VBScript, il faudra certainement passer par FSO, pose plutot ta questions sur news:microsoft.public.fr.scripting
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Thierry a écrit :
Bonjour et merci de me lire,
Je débute en vbscript, voici ce que je souhaite: Tester la présence d'un fichier dans mon rep et ensuite message selon présence ou non. If Monfichier Existe Then msgbox "Présent" Else msgbox "Absent" End if J'ai le cheminemant certes mais je ne vois pas comment faire cette vérif, j'ai regarder sur le site de http://faq.vb.free.fr, j'ai copié la syntaxe dans un fichier vbs, mais il me génère une erreur. J'ai trouvé une autre info ici également, mais idem, il me génère une erreur. Pouvez vous m'auguiller. Merci Amicalement Thierry
Zoury
Salut Christophe! :O)
Avec les APIs :
La déclaration d'API n'est pas permise en VBScript. Il faut, si on veut les utiliser, "wrapper" les appels aux fonctions APIs dans des classes dans une DLL ActiveX. Les classes peuvent ensuite être instancié grâce à la fonction CreateObject()..
Merci de poster les réponses au groupe afin d'en faire profiter à tous
Salut Christophe! :O)
Avec les APIs :
La déclaration d'API n'est pas permise en VBScript. Il faut, si on veut les
utiliser, "wrapper" les appels aux fonctions APIs dans des classes dans une
DLL ActiveX. Les classes peuvent ensuite être instancié grâce à la fonction
CreateObject()..
La déclaration d'API n'est pas permise en VBScript. Il faut, si on veut les utiliser, "wrapper" les appels aux fonctions APIs dans des classes dans une DLL ActiveX. Les classes peuvent ensuite être instancié grâce à la fonction CreateObject()..
