ProRésolu

Question

Hello tout le monde
J'ai besoin de cr&#233;er tout une flopp&#233;e de dossiers et apparament, on est limit&#233; avec cette API. J'aimerai par exemple cr&#233;er en une fois c:\x\x\x\x\x mais je peux pas cr&#233;er plus de 3 dossiers &#224; la suite (c:\x\x\x) apr&#232;s la racine, sinon, l'API renvoye 0 et ne cr&#233;&#233; rien. Il y a t-il une solution ?

private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Private Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type


Private Sub Command1_Click()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: [mailto:KPDTeam@Allapi.net KPDTeam@Allapi.net]
    Dim Security As SECURITY_ATTRIBUTES
    'Create a directory
    Ret& = CreateDirectory("C:\Directory", Security)
    'If CreateDirectory returns 0, the function has failed
    If Ret& = 0 Then MsgBox "Error : Couldn't create directory !", vbCritical + vbOKOnly
End Sub

 @Z3RtY25 ==

cs_Jack · Accepted Answer

Salut
En fait, avec ce genre de commande, il faut utiliser la r&#233;cursivit&#233; (r&#233;p&#233;tition avec progression) pour cr&#233;er chacun des r&#233;pertoires racine, puis les suivants.
Je te propose ce code qui utilise le FileSystemObject (scripting) qu'il faut d'abord d&#233;clarer comme objet :
Public Sys As Object      ' FileSystemObject
puis, dans la Main ou dans ton Form_Load, ouvrir l'objet :
Set Sys = CreateObject("Scripting.FileSystemObject")

et la routine :
Public Function Cr&#233;&#233;R&#233;pertoires(ByVal Chemin As String) As Boolean


    ' On construit l'arborescence en partant du d&#233;but
    ' (permet de recontruire un arbre entier)
    Dim S() As String, Temp As String, r As Long
    
    On Error GoTo Erreur
    Cr&#233;&#233;R&#233;pertoires = False
    If Sys.FolderExists(Chemin) Then
        Cr&#233;&#233;R&#233;pertoires = True
        Exit Function
    End If
    S = Split(Chemin, "")
    For r = 0 To UBound(S)
        Temp = Temp & S(r) & ""
        If Not Sys.FolderExists(Temp) Then Sys.CreateFolder (Temp)
    Next r
    On Error Resume Next
    DoEvents
    If Sys.FolderExists(Chemin) Then
        Cr&#233;&#233;R&#233;pertoires = True  ' rev&#233;rifie
    End If


Erreur:
End Function

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_Jack · Answer

J'oubliais : Pour utilise le FSO, il faut (pas obligatoire, mais vaut mieux pour l'empaquetage de la compilation) aussi aller dans le menu "Projet, R&#233;f&#233;rences" cocher la ligne de l'objet "Microsoft Scripting Runtime" qui est le fichier %System32%\scrrun.dll

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

ScSami · Answer

Mais sans &#231;a, j'aimerais bien voir ton code car ce que tu nous dis l&#224; m'&#233;tonne &#233;norm&#233;ment !!!

Il n'y a aucune raison pour que l'API ne fonctionne plus au bout de 3
coups!!! Non, a mon avis, le probl&#232;me se trouve dans ton code concr&#234;t!!!

cs_MasterHack · Answer

salut voici un api qui fera l'affaire: cet api revois si un chemin existe si non il le cree :) Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long Private Sub Command1_Click() MakeSureDirectoryPathExists "c:\x1\x2\x3\x4\x5\x6" End Sub N.B:si tu ne mets pas \ a la fin le dernier dosier ne sera pas cree.ciao

Life is short...Learn more Copy Rights <> Rights to Copy

ScSami · Answer

Dit moi Master, c'est pas un API exclusive XP par hasard ???

cs_MasterHack · Answer

ScSami>non non pas du tout ça marche sur > win95 et pour NT a partir de 3.1.ciao,vas dormi lol

Life is short...Learn more Copy Rights <> Rights to Copy

ScSami · Answer

CLAIR  

D&#233;sol&#233;...

cs_azerty25 · Answer

Tout d'abord merci pour vos r&#233;ponses !!!
Eh oui, c'est &#233;trange, mais essayez vous m&#234;me, vous serez supris ;)
En fait, c'est pas 3 sous dossiers max, &#231;a &#224; l'air al&#233;atoire, j'ai pas r&#233;ussi &#224; trouver une explication.
Le code que j'ai &#233;crit est le m&#234;me code que j'ai utilis&#233; pour les tests, celui de l'API Guide.
Merci aux 2 personnes qui ont donn&#233; du code, c'est vrai que la r&#233;cursivit&#233; c'est s&#251;r mais je trouve pas &#231;a tr&#232;s propre et FSO, ba &#231;a rajoute une DLL , et l'API de jack fonctionne &#233;galement, c'est cela que je vais utiliser.

 @Z3RtY25 ==

BruNews · Answer

d&#233;sol&#233; je n'ai pas VB mais j'ai test&#233; dans Excel, bien entendu &#231;a passe nickel, je n'ai jamais vu CreateDirectory rater si on lui passe une chaine valide.
Je vois par contre que tu n'initialises pas le SECURITY_ATTRIBUTES, si tu n'en as pas besoin (la plupart des cas) alors il faut l'enlever et passer 0 mais surtout pas passer une adresse sur zone non initialis&#233;e comme il se doit.

Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, ByVal dummy As Long) As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim s As String
  s = "D:\AAA"
  If CreateDirectory(s, 0) = 0 Then GoTo noDir
  s = s & "\AAA"
  If CreateDirectory(s, 0) = 0 Then GoTo noDir
  s = s & "\AAA"
  If CreateDirectory(s, 0) = 0 Then GoTo noDir
  s = s & "\AAA"
  If CreateDirectory(s, 0) = 0 Then GoTo noDir
  s = s & "\AAA"
  If CreateDirectory(s, 0) = 0 Then GoTo noDir
  Exit Sub
noDir:
  MsgBox s, vbCritical
End Sub

ciao...
BruNews, MVP VC++

ScSami · Answer

Ben alors la voil&#224; l'explication!!!



Tu veux dire que si on n'initialise pas cette variable de type utilisateur elle n'est pas consid&#233;r&#233; comme &#233;tant &#224; "0" !!!

Y'a un truc que je pige pas dans les APIs... Est-ce que, lorsqu'on a
une structure (comme la Security_Attributes), il est obligatoire ou non
de la "mettre" (c'est &#224; dire, la d&#233;clarer et l'utiliser sans valeur) ou
non ??? Et si c'est non, pourquoi ??? Un simple "0" est
structurellement bien diff&#233;rent d'une structure m&#234;me vide non!?!? Je
dis une connerie ???



Est-ce que, dans ton infinie mansuitude, tu pourrais, ho toi le grand
Chat, expliquer aux newbies comme moi, avec ta grande connaissance de
ce domaine obscure et ta traditionnelle sagesse, le pourquoi du comment
un truc pareil est possible ???


Merci  par avance

cs_MasterHack · Answer

oui c important car le type attendu de l'api c ça,mais lui mettre la valeur ou non,là ça depend de l'api.par exemple l'api GetWindowRect qui utilise le type RECT ne demande pas l'initialisation de la variable de ce type RECT mais c l'api lui meme qui retourne des valeur a la variable.ce qui n'est pas le cas de L'api setcursorpos qui utilise les variable de type POINTAPI.ciao

BruNews · Answer

Ce qu'on passe c'est une adresse, si tu passes 0 API consid&#232;re que tu ne fournis rien donc va bon (bien lire la doc API pour v&#233;rifier qu'elle accepte ce discours bien entendu).
Si par contre tu fournis l'adresse d'une struct, ses membres doivent &#234;tre correctement initialis&#233;s sinon API retourne une erreur.

Ultra simple, non ?

ciao...
BruNews, MVP VC++

ScSami · Answer

Humm... attends... laisse moi r&#233;fl&#233;chir...

Oui! En effet! Dit comme &#231;a c'est plut&#244;t simple!



Merci pour ces explications.

cs_azerty25 · Answer

Merci pour les explications ! 

 @Z3RtY25 ==

Pro

14 réponses

Discussions similaires