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
Partager