Discussion :

[Sekigawa]

Bonjour,

J'essaye de créer un dossier puis de copier des fichiers dans ce nouveau dossier, mais cela ne fonctionne pas et j'ai une erreur

Erreur d'exécution Microsoft VBScript erreur '800a01a8'

Objet requis: '[undefined]'

En fait il me crée le premier dossier nickel et me colle le premier fichier puis après sa bloque avec cette erreur et si je tente juste de créer les dossier sa fonctionne nickel

Voici mon code et en gras la ligne où il y a l'erreur apparemment

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
38
39
Dim strMesFichiers, strTabMesFichiers, fso, Ftxt, strContenu, strFichierCourant, strSplitTabFichier, strNomDocTxt, FDir, FDoc, strDirSource, strDirDestination
			
strMesFichiers = valeurparam("tabFichier")
strTabMesFichiers = split(trim(strMesFichiers), ",", -1, 1)
strContenu = "Fichier visualisation déplacer" & vbCrLf & vbCrLf 
strNomDocTxt = strCheminServeur & "backup\Delete" & day(date) & month(date) & year(date) & ".txt" ' Nom du fichier
				
'instanciation
Set fso = CreateObject("Scripting.FileSystemObject")
			
'on instance le fichier texte dans lequel on veut ecrire
Set Ftxt =  fso.createTextFile(strNomDocTxt ,true) 'true=ecrase
			
for each strFichierCourant in strTabMesFichiers
			
strSplitTabFichier = split(strFichierCourant, "*", -1, 1)
strDirSource = strCheminServeur & trim(strSplitTabFichier(0)) & "\"
strDirDestination = strCheminServeur & "backup\" & trim(strSplitTabFichier(0)) & "\"
				
if not fso.FolderExists(strDirDestination) then
   Set FDir = fso.CreateFolder (strDirDestination)
end if
Set FDoc = fso.CopyFile(strDirSource & trim(strSplitTabFichier(2)), strDirDestination & trim(strSplitTabFichier(2)), true)			
				
strContenu = strContenu & strSplitTabFichier(1) & vbCrLf & trim(strSplitTabFichier(2)) & vbCrLf & vbCrLf 
				
Set FDir = nothing
Set FDoc = nothing
				
Next
			
FDir.close
FDoc.close
			
'On ecrit ce que l'on veut dans le fichier 
Ftxt.writeline (trim(strContenu))
			
Ftxt.Close

Aidez moi SVP !!!

[Sekigawa]

Bon bah encore une fois j'ai trouvé la réponse seul ^^

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
for each strFichierCourant in strTabMesFichiers
			
strSplitTabFichier = split(strFichierCourant, "*", -1, 1)
strDirSource = strCheminServeur & trim(strSplitTabFichier(0)) & "\"
strDirDestination = strCheminServeur & "backup\" & trim(strSplitTabFichier(0)) & "\"

if not fso.FolderExists(strDirDestination) then
fso.CreateFolder (strDirDestination)
end if
call fso.CopyFile (strDirSource & trim(strSplitTabFichier(2)), strDirDestination & trim(strSplitTabFichier(2)), true)			
				
strContenu = strContenu & strSplitTabFichier(1) & vbCrLf & trim(strSplitTabFichier(2)) & vbCrLf & vbCrLf 
								
Next