Editer un commentaire - Informaticien.be

Mot de passe perdu

Suivez Informaticien.be sur Facebook

Suivez Informaticien.be sur Twitter

Suivez le Podcast Les Technos sur YouTube

Suivez le Podcast Les Technos sur iTunes

Suivez Informaticien.be via RSS

[Actualités] Kodi Omega reprend le bon chemin : la mise à jour élimine les problèmes les p...
[Actualités] La Corée du Sud s'apprête à instaurer la première réglementation mondiale e...
[Actualités] Test Romancing SaGa -Minstrel Song- Remastered International (PS5) : Un classiqu...
[Actualités] Google supprime le rapport sur le Dark Web parce que les gens ne savaient pas co...
[Actualités] Sora n'intéresse plus personne : l'application vidéo IA est-elle déjà ennuye...
[Actualités] Dell va augmenter considérablement le prix de ses ordinateurs portables.
[Actualités] Google a décidé de rendre le Tensor G6 très puissant.
[Actualités] L'iPhone 20 sera doté d'un écran OLED inhabituel.
[Actualités] Les analystes prévoient une hausse des prix des disques durs
[Actualités] Mega Man Dual Override : Un nouvel épisode 2D prévu pour 2027
[Articles] Wild Strawberry tome 3
[Articles] Romancing SaGa -Minstrel Song- Remastered International
[Articles] Rapport ESET sur les menaces : attaques par l'IA en hausse; menaces NFC en augme...
[Articles] Völundio : Chroniques des lames sacrées tome 2
[Articles] REDEX - Console Edition
[Articles] Thrillerville
[Articles] Schildmaid MX
[Articles] Mollie en cours d’acquisition de GoCardless pour créer la plateforme de paiem...
[Articles] Bug livre 4
[Articles] Winterlight - Where silence says it all

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 ^^

Informations
Besoin d’avis sur l’UX de mon mini-projet web (et plus globalement sur ce qui vous rebute sur un site) ?

Software
problème sur windows 10

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

Logiciels

Logiciels
Kodi Omega reprend le bon chemin : la mise à jour élimine les problèmes les plus gênants

Droit

Droit
La Corée du Sud s'apprête à instaurer la première réglementation mondiale exhaustive sur l'intelligence artificielle

Jeux Vidéos

Jeux Vidéos
Test Romancing SaGa -Minstrel Song- Remastered International (PS5) : Un classique enfin traduit en français

Google

Google
Google supprime le rapport sur le Dark Web parce que les gens ne savaient pas comment l'utiliser

Programmation

Programmation
Sora n'intéresse plus personne : l'application vidéo IA est-elle déjà ennuyeuse ?

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

Verixi Internet Services

Informaticien.be - © 2002-2025 AkretioSPRL - Generated via Kelare

The Akretio Network: Akretio - Freedelity - KelCommerce - Votre publicité sur informaticien.be ?