Suppression d'un répertoire

Salut,

Il faut donc soit déjà vider le repertoire soit utiliser l'api
SHFileOperation() :

'//Dans un module par exemple :
Option Explicit

Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String
End Type

Private Declare Function SHFileOperation Lib "shell32.dll" Alias
"SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Public Sub DeleteFolder(strFolder As String)
Dim foData As SHFILEOPSTRUCT
With foData
.pFrom = strFolder
.fFlags = &H214 '//FOF_NOCONFIRMMKDIR Or FOF_NOCONFIRMATION Or
FOF_SILENT
.wFunc = &H3 '//DELETE
End With
Call SHFileOperation(foData)
End Sub


'//Dans ta form :


Private Sub Form_Load()
Call DeleteFolder("C:temp123")
End Sub


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Stéphane wrote:

Bonjour à tous,

Quelqu'un connait il la commande pour supprimer un répertoire à
partir d'une application VB.
j'ai essayé la commande RmDir mais le problème est que si il y a des
répertoire ou des fichier dedans une erreur se produit.

Je sais que la fonction fso.deletefolder donne se résultat mais j'ai
entendu dire qu'en VB il vaut mieux éviter les FSO.

Merci d'avance
Stéphane

Merci beaucoup ça marche vraiment bien.
Est ce que vous savez où l'on peut trouver les différentes fct qui existe ds
le shell32.dll


"ng" wrote:

Salut,

Il faut donc soit déjà vider le repertoire soit utiliser l'api
SHFileOperation() :

'//Dans un module par exemple :
Option Explicit

Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String
End Type

Private Declare Function SHFileOperation Lib "shell32.dll" Alias
"SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Public Sub DeleteFolder(strFolder As String)
Dim foData As SHFILEOPSTRUCT
With foData
.pFrom = strFolder
.fFlags = &H214 '//FOF_NOCONFIRMMKDIR Or FOF_NOCONFIRMATION Or
FOF_SILENT
.wFunc = &H3 '//DELETE
End With
Call SHFileOperation(foData)
End Sub


'//Dans ta form :


Private Sub Form_Load()
Call DeleteFolder("C:temp123")
End Sub


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Stéphane wrote:
> Bonjour à tous,
>
> Quelqu'un connait il la commande pour supprimer un répertoire à
> partir d'une application VB.
> j'ai essayé la commande RmDir mais le problème est que si il y a des
> répertoire ou des fichier dedans une erreur se produit.
>
> Je sais que la fonction fso.deletefolder donne se résultat mais j'ai
> entendu dire qu'en VB il vaut mieux éviter les FSO.
>
> Merci d'avance
> Stéphane

Stéphane a écrit :

Merci beaucoup ça marche vraiment bien.
Est ce que vous savez où l'on peut trouver les différentes fct qui existe ds
le shell32.dll

Personnellement, j'utilise API-Guide qui est pas mal. Voir ici:
http://www.mentalis.org/agnet/apiguide.shtml

Vincent Guichard

Salut,

Oui en effet c'est un très bon outils, tu pourras rechercher par librairies,
nom de fonction, nom d'exemple...

Et il y a au moins un exemple par fonction.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Vincent Guichard wrote:

Stéphane a écrit :

Merci beaucoup ça marche vraiment bien.
Est ce que vous savez où l'on peut trouver les différentes fct qui
existe ds le shell32.dll

Personnellement, j'utilise API-Guide qui est pas mal. Voir ici:
http://www.mentalis.org/agnet/apiguide.shtml

Vincent Guichard