DirectoryInfo.GetFiles: Ignorer fichiers/répertoires protégés
Résolu/Fermé
Anonyme209
Messages postés
679
Date d'inscription
samedi 6 octobre 2012
Statut
Membre
Dernière intervention
22 décembre 2020
-
Modifié par Anonyme209 le 27/08/2015 à 15:04
Anonyme209 Messages postés 679 Date d'inscription samedi 6 octobre 2012 Statut Membre Dernière intervention 22 décembre 2020 - 27 août 2015 à 16:18
Anonyme209 Messages postés 679 Date d'inscription samedi 6 octobre 2012 Statut Membre Dernière intervention 22 décembre 2020 - 27 août 2015 à 16:18
A voir également:
- DirectoryInfo.GetFiles: Ignorer fichiers/répertoires protégés
- Wetransfer gratuit fichiers lourd - Guide
- WeTransfer - Télécharger - Téléchargement & Transfert
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
- Fichiers temporaires windows 10 - Guide
- Fichiers rar - Guide
1 réponse
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
27 août 2015 à 15:36
27 août 2015 à 15:36
Bonjour,
Voici une fonction qui t'indique le dossier d'accès refusé, mais te retourne la taille:
Voici une fonction qui t'indique le dossier d'accès refusé, mais te retourne la taille:
Option Strict On
Imports System.IO
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
MsgBox(GetFolderSize("C:\Users\....\Documents", True))
MsgBox(GetFolderSize("C:\Users\....\Documents", False))
End Sub
Function GetFolderSize(ByVal DirPath As String, _
Optional IncludeSubFolders As Boolean = True) As Long
Dim lngDirSize As Long
Dim objFileInfo As FileInfo
Dim objDir As DirectoryInfo = New DirectoryInfo(DirPath)
Dim objSubFolder As DirectoryInfo
Try
'add length of each file
For Each objFileInfo In objDir.GetFiles()
lngDirSize += objFileInfo.Length
Next
'call recursively to get sub folders
'if you don't want this set optional
'parameter to false
If IncludeSubFolders Then
For Each objSubFolder In objDir.GetDirectories()
lngDirSize += GetFolderSize(objSubFolder.FullName)
Next
End If
Catch Ex As Exception
MessageBox.Show(Ex.Message) 'dossier refusé
End Try
Return lngDirSize
End Function
End Class
27 août 2015 à 16:18