VB.NET. Tester l’existence d’un répertoire FTP

Problématique

Nous avons vu tout à l’heure comment créer un répertoire sur votre serveur via FTP.

La procédure proposée renverra une anomalie si le répertoire existe déjà. Il y a peut-être intérêt à tester d’abord si ce répertoire n’existerait pas déjà.

Solution

Je ne vais pas vous saouler de baratin. Voici le code, très semblable au code nécessaire pour créer un répertoire.

Public Function FTPCheckDir(ByVal ftpWebsite As String, ByVal ftpDir As String) As Boolean
Dim destURI As String
Dim message As String = «  »

destURI = « ftp://votreserveur/ » & ftpWebsite & « / » & ftpDir

Dim ftpRequest As FtpWebRequest = Nothing
Dim ftpStream As Stream = Nothing

Try

ftpRequest = DirectCast(FtpWebRequest.Create(New Uri(destURI)), FtpWebRequest)
ftpRequest.Method = WebRequestMethods.Ftp.ListDirectory
ftpRequest.UseBinary = True
ftpRequest.Credentials = New NetworkCredential(ftpUser, ftpPassword)

Dim response As FtpWebResponse = DirectCast(ftpRequest.GetResponse(), FtpWebResponse)
ftpStream = response.GetResponseStream()
ftpStream.Close()
response.Close()

FTPCheckDir = True

Catch ex As Exception

If ftpStream IsNot Nothing Then
ftpStream.Close()
ftpStream.Dispose()
End If

FTPCheckDir = False

End Try

Exit Function

End Function

Cette fonction renvoie true si le répertoire existe déjà, false sinon.

ET LE TOUR EST JOUÉ ! ALORS ON DIT MERCI QUI ?

 POUR EN SAVOIR PLUS : les derniers livres parus sur Visual Basic sont sur

DerniersParus.com » Visual Basic

Laisser un commentaire