Se connecter
Se connecter
Inscription
Mot de passe perdu
Connexion:
[Actualités]
Test The Bridge Curse 2 : The Extrication (PS5)
[Actualités]
Google révolutionne Maps, Earth et Waze grâce à Gemini : une avalanche de nou...
[Actualités]
Le directeur des logiciels de Rivian déclare que l'utilisation de boutons dans ...
[Actualités]
Le télescope Euclid « Dark Universe » dévoile une fenêtre époustouflante d...
[Actualités]
iPhone 17 : début de la production de milliers d'appareils en Inde
[Actualités]
Amazon reporte Alexa 2.0 avec IA à 2025
[Actualités]
Le service de streaming Nintendo Music annoncé pour iOS et Android
[Actualités]
Test Mind Seize (PS5)
[Actualités]
Ubisoft lance le tout premier jeu blockchain, avec des NFT coûtant jusqu'à 64 ...
[Actualités]
Apple annonce la sortie de nouveaux MacBook Pro M4 le 8 novembre
[Articles]
Super Mario Party Jamboree
[Articles]
The Bridge Curse 2 : The Extrication
[Articles]
Fund Insight : ODDO BHF AM Artificial Intelligence
[Articles]
28 % des travailleurs dans le monde craignent l’impact de l’IA sur leur emploi
[Articles]
MindSeize
[Articles]
The Last Shot
[Articles]
Iron Meat
[Articles]
Devoteam et SecurityScorecard unissent leurs forces pour fournir des solutions d...
[Articles]
Plus d'un quart des scale-ups voient leur croissance ralentir en raison d'infras...
[Articles]
Embargo, nouveau rançongiciel, désactive les solutions de sécurité, selon un...
Actualités
Lettre d'information
Proposer une actualité
Archives
Actualités
Articles
Programmation
Press Release
Matériel
Logiciels
Livres
Interviews
Derniers commentaires
Jeux Vidéos
XBox One
XBox 360
Wii U
PSP
PS4
PS3
PC
DS
GameCube
3DS
Forum
Derniers messages
Informatique
Fun
Divers
Logithèque
Blogs
Divers
A Propos
Annonceurs
Contact
Recherche
RSS
Editer un commentaire
Sujet
Texte
Un autre méthode beaucoup plus rapide (50%) qui utilise les API et non le FileSystemObject (donc pas de DLL à lier/trimballer) [vb]Private Const MAX_PATH As Long = 260 Private Const INVALID_HANDLE_VALUE As Long = -1 Private Const FILE_ATTRIBUTE_DIRECTORY As Long = &H10 nLength As Long lpSecurityDescriptor As Long bInheritHandle As Long End Type Private Type SECURITY_ATTRIBUTES Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" _ (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Private 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 Private Declare Function FindFirstFile Lib "kernel32" _ Alias "FindFirstFileA" _ (ByVal lpFileName As String, _ lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindClose Lib "kernel32" _ (ByVal hFindFile As Long) As Long Public Sub rMkDir(sPath As String) Dim sTmp As String Dim iIndex As Integer Dim iLen As Integer Dim iEnd As Integer Dim SecAttrib As SECURITY_ATTRIBUTES With SecAttrib .lpSecurityDescriptor = &O0 .bInheritHandle = False .nLength = Len(SecAttrib) End With iLen = Len(sPath) sTmp = Left(sPath, 2) If sTmp = "\\" Then iIndex = InStr(3, sPath, "\") End If Do iEnd = InStr(iIndex + 1, sPath, "\") If iEnd = 0 Then iEnd = iLen End If sTmp = Mid(sPath, 1, iEnd) If Not FolderExists(sTmp) Then Call CreateDirectory(sTmp, SecAttrib) End If iIndex = iEnd + 1 Loop While iEnd <> iLen End Sub Private Function FolderExists(sFolder As String) As Boolean Dim hFile As Long Dim WFD As WIN32_FIND_DATA sFolder = UnQualifyPath(sFolder) hFile = FindFirstFile(sFolder, WFD) FolderExists = (hFile <> INVALID_HANDLE_VALUE) And _ (WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) Call FindClose(hFile) End Function Private Function UnQualifyPath(ByVal sFolder As String) As String sFolder = Trim$(sFolder) If Right$(sFolder, 1) = "\" Then UnQualifyPath = Left$(sFolder, Len(sFolder) - 1) Else UnQualifyPath = sFolder End If End Function [/vb]
Forum
-
Derniers messages
Bavardages
Aujourd'hui, je rénove ou je construis ^^
Software
problème sur windows 10
Réseaux et Télécom
Administrateur Réseau - Cisco
Réseaux et Télécom
Problème wifi (POE)
Software
Postfix - Need help
Bavardages
Oh râge oh désespoir !
Programmation
Enregistrement client et envoi mail
Software
SÉCURITÉ MACBOOK
Hardware
conseil matos réseau?
Hardware
nVidia Shield Android TV
Actualités
-
Archives
Jeux Vidéos
Test The Bridge Curse 2 : The Extrication (PS5)
Google
Google révolutionne Maps, Earth et Waze grâce à Gemini : une avalanche de nouvelles fonctions en route
Programmation
Le directeur des logiciels de Rivian déclare que l'utilisation de boutons dans une voiture est « une anomalie » et que l'utilisation de CarPlay est de la « paresse »
Internet
Le télescope Euclid « Dark Universe » dévoile une fenêtre époustouflante de 208 gigapixels sur le cosmos
Apple
iPhone 17 : début de la production de milliers d'appareils en Inde
Ada
CSS
Cobol
CPP
HTML
Fortran
Java
JavaScript
Pascal
Perl
PHP
Python
SQL
VB
XML
Anon URL
DailyMotion
eBay
Flickr
FLV
Google Video
Google Maps
Metacafe
MP3
SeeqPod
Veoh
Yahoo Video
YouTube
6px
8px
10px
12px
14px
16px
18px
Informaticien.be
- © 2002-2024
Akretio
SPRL - Generated via
Kelare
The Akretio Network:
Akretio
-
Freedelity
-
KelCommerce
-
Votre publicité sur informaticien.be ?