Imports System.IO pathdirectory = "E:\ReadFile" Dim di As New IO.DirectoryInfo(pathdirectory) Dim aryFi As IO.FileInfo() aryFi = di.GetFiles() Dim fi As IO.FileInfo For Each fi In aryFi If fi.Name.Contains("Avatar") Then MessageBox.Show("trouvez") End If next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionImports System.IO pathdirectory = "E:\ReadFile" Dim di As New IO.DirectoryInfo(pathdirectory) Dim aryFi As IO.FileInfo() aryFi = di.GetFiles() Dim fi As IO.FileInfo For Each fi In aryFi If fi.Name.Substring(0, fi.Name.Length - fi.Extension.Length) = "AVATAR" Then MessageBox.Show("trouvez") End If Next
Imports Microsoft.VisualBasic.FileSystem If Dir("C:\chemin\...\nom du fichie complet") = "" Then MsgBox("Fichier n'existe pas") Else MsgBox("Fichier existe") End If
if dir("C:\*.*") = "" then MsgBox("vide") else MsgBox("pas vide") end if
Dir("D:\Baobao\Partage Baobao\Avatar*")