Discussion :

[ouskel'n'or]

Si ça existe, tout est dans le sujet. Il doit certainement y avoir plus simple que ce que j'ai fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub SupprimerCeRépertoire()
Dim Rep, TabRep, RepSup, RepName
    Rep = "D:\Quit\LettresTypes\"
    TabRep = Split(Rep, "\")(UBound(Split(Rep, "\")) - 1)
    RepSup = Left(Rep, InStr(Rep, TabRep) - 1)
    RepName = Dir(RepSup, vbDirectory)
    Do
        If LCase(RepName) = LCase(TabRep) Then
            ChDir Rep
            Kill "*.doc"
            DoEvents
            ChDir RepSup
            RmDir Rep
            DoEvents
            Exit Do
        End If
        RepName = Dir
    Loop While Not ok
End Sub

Merci

[dadavyvy]

Avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim fso
rep = "C:\dossier"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(rep) Then
    fso.DeleteFolder rep
Else
    MsgBox "Repertoire non trouvé : " & rep
End If

Attention : supprime également tous les fichiers et les sous-dossiers

[ouskel'n'or]

Merci dadavyvy, c'est ce que je cherchais. Mais je souhaiterais éviter de référencer les fso.

Dans un contexte voisin, Maxence HUBICHE, il a dit "L'avantage de Dir, c'est qu'il sert uniquement à cela, et qu'il est dans la bibliothèque VBA (donc obligatoirement présent) et donc, il devient inutile de référencer les fso en plus."

Et j'aimerais bien lui faire plaisir
Si tu as une idée.
A+

[dadavyvy]

En fait avec un CreateObject, on n'a pas besoin de reférencer la bibliotheque dans VBA, il suffit juste qu'elle ait été bien installée... De même avec un objet Word.Application ou autre, pas besoin de référencer la Microsoft Word Library.
Référencer la biblio, te permet d'avoir l'aide intuitive de VBA...
Et parfois même, les deux ne sont pas compatibles, comme avec la librairie LotusNotes... Incompatibilité de type selon VBA... grrrr

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim sess As NotesSession
Set sess = CreateObject("Notes.NotesSession")
'Et là erreur !....

Mais bon, ça n'a rien avoir avec le sujet...

[Arkham46]

Bjr,

J'aime bien l'API SHFileOperation pour les opérations sur les fichiers/répertoire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Option Explicit
 
Private Type SHFILEOPSTRUCT
    Hwnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Boolean
    hNameMappings As Long
    lpszProgressTitle As String
End Type
Private Const FOF_SILENT As Long = &H4
Private Const FOF_NOCONFIRMATION As Long = &H10
Private Const FO_DELETE = &H3
Private Declare Function SHFileOperation Lib "Shell32.dll" _
            Alias "SHFileOperationA" _
            (lpFileOp As SHFILEOPSTRUCT) _
            As Long
 
 
Function TestSuppressionRépertoire()
Dim tshFileOp As SHFILEOPSTRUCT
Dim lRet As Long
With tshFileOp
    .wFunc = FO_DELETE
    .pFrom = "E:\MonRépertoireàSuprrimer"
    .fFlags = FOF_SILENT Or FOF_NOCONFIRMATION
End With
lRet = SHFileOperation(tshFileOp)
If lRet = 0 Then
    MsgBox "Opération réussie"
Else
    MsgBox "Erreur lors de la suppression"
End Select
End Function

[ouskel'n'or]

Merci à tous.
Un merci particulier à Arkham46 Je sais que le plus simple n'est pas toujours le plus efficace mais bon. J'ai bien vu que tu gères l'existence du répertoire à supprimer mais comme ce qui m'importe est de ne plus l'avoir, j'avais simplifié
Dans la sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub SupprimerEnDos()
Dim Rep
    Rep = "D:\Quit\LettresTypes"
    'If VerifExistence(Rep) Then
        Call Shell("cmd /c RD /S /Q " & Rep)
    'End If
End Sub
'Et dans la fonction
Function VerifExistence(Rep) As Boolean
    On Error Resume Next
        ChDir Rep
        VerifExistence = Err = 0
End Function

Parce que, tant qu'à faire de passer par les API, le passage par le dos eut été beaucoup plus simple.
Hélas, si ce code fonctionne (je parle du Shell) la vérif provoque une erreur, le message retourné étant "Le processus ne peut pas accéder au fichier car ce fichier est utilisé par un autre processus" (!)
J'ai donc supprimé la vérif, ce qui donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub SupprimerInconditionnellementUnRepEnDos(Rep)
        Call Shell("cmd /c RD /S /Q " & Rep)
End Sub

Les paramètres sont là, /S pour supprimer tout ce que contient le répertoire et lui-même, /Q pour éviter une confirmation.
En réalité, c'est un peu ce que je cherchais quand je souhaitais "plus simple", mais par VBA.
Encore merci de vous être penchés sur mon pb.
Si on n'a pas, je ferai avec. Avec Vista, faudra réviser ça...

[lbar012001]

bonjour
avez vous une commande shell proche de celle ci dessus mais permettant de faire un del *.* dans un répertoire mais sans supprimer ce répertoire

actuellement j'utilise la fonction "envoicorbeille" que j'ai trouvée sur le forum mais je la trouve tres longue à s'executer car il y a de nombreux fichier et je me demande si une commande type shell ne serait pas plus rapide

merci par avance
laurent

[ouskel'n'or]

Oui, tu as ça avec le même code à peine modifié

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub SupprimerEnDos()
Dim Rep
    Rep = "D:\GlouGlou"
    If VerifExistence(Rep) Then
        Shell "cmd /c Del *.* /q"
    End If
End Sub
 
 
Function VerifExistence(Rep) As Boolean
    On Error Resume Next
        ChDir Rep
        VerifExistence = Err = 0
End Function

Mais tu as aussi ça en VBA.

[lbar012001]

merci bien
je vais essayer cela
a+
laurent

[ouskel'n'or]

Pendant que tu y es, teste ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub SupprimerEnVBA()
Dim Rep As String, Ext As String
    Rep = "D:\GlouGlou\"
    Ext = "*.xls"
    If VerifExistence(Rep) Then
        On Error Resume Next
        Kill Rep & Ext
        If Err <> 0 Then MsgBox "Aucun fichier " & Ext & " trouvé"
    End If
End Sub
 
Function VerifExistence(Rep) As Boolean
    On Error Resume Next
        ChDir Rep
        VerifExistence = Err = 0
End Function

Et tu peux adapter "*.xls" comme tu veux

[KTMARC]

Avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim fso
rep = "C:\dossier"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(rep) Then
    fso.DeleteFolder rep
Else
    MsgBox "Repertoire non trouvé : " & rep
End If

Attention : supprime également tous les fichiers et les sous-dossiers

code interessant
Mais comment adapter pour supprimer tous les dossiers sauf un dossier specifique "X" par exemple? Merci