Bonjour , j utilise la methode
SHCreateDirectoryEx 0&, directory , 0&

apres avoir creer le repertoire je veux supprimmer le rep que je viens de creer j ai un message d erreur et je ne peux supprimmer les fichiers...


exemple de code:

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
T1 = UserForm1.TextBox1 & " - "
    T2 = UserForm1.TextBox2 & " - "
    T3 = UserForm1.TextBox3 & "\"
    C1 = UserForm1.combobox1 & "\"
    New_project = "D:\Documents and Settings\be30enginering\My Documents\" & C1 & T1 & T2 & T3
 
    Select Case True
    Case UserForm1.combobox2 = "A" And Sheet2.CheckBox257
        Directory4 = New_project & "\" & Sheet2.Range("A69") & "\"
    Case UserForm1.combobox2 = "B" And Sheet2.CheckBox258
        Directory4 = New_project & "\" & Sheet2.Range("A69") & "\"
    Case UserForm1.combobox2 = "C" And Sheet2.CheckBox259
        Directory4 = New_project & "\" & Sheet2.Range("A69") & "\"
    Case UserForm1.combobox2 = "D" And Sheet2.CheckBox260
        Directory4 = New_project & "\" & Sheet2.Range("A69") & "\"
    End Select
    SHCreateDirectoryEx 0&, Directory4, 0&

MESSAGE D ERREUR:
Cannot remove folder....: cqnnot find the specified file.
Make sure you specify the correct path and file name


merci de votre aide
Tom
Test to delete the entire directory.doc