objFile.Delete erreur Object required

Version imprimable

L'avant dernière ligne donne une erreur et je n'arrive pas à trouver pourquoi ? (erreur : Object required objFile )

Bien à vous

Code:

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
 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile2 = objFSO.GetFile("WordVBS.vbs") 
FolderName=objFSO.GetParentFolderName(objFile2)&"\Word\" 
For Each objFile In objFSO.GetFolder(FolderName).Files 
Filename = objFSO.GetBaseName(objFile.Path)
strCurrentExt = objFSO.GetExtensionName(objFile.Path) 
next 
PrinttemplateFolder=objFSO.GetParentFolderName(objFile2)&"\Printtemplate\"
Set objWord = CreateObject("Word.Application")
objWord.Visible = False
Set objDoc= objWord.Documents.Open(Foldername&"rtf.rtf")
Set objSelection= objWord.Selection
objSelection.Wholestory()
objSelection.copy()
Set objWord1 = CreateObject("Word.Application")
objWord1.Visible = False
Set objDoc1 = objWord1.Documents.Add(PrinttemplateFolder&"printtemplate.dot")
Set objSelection1= objWord1.Selection
objSelection1.Paste()
objDoc1.SaveAs(Foldername&Filename&".doc")
ObjWord1.Quit
ObjWord.Quit  
 
For Each objFile In objFSO.GetFolder(FolderName).Files 
strCurrentExt = objFSO.GetExtensionName(objFile.Path)   
next
If strCurrentExt = "rtf" Then 
objFile.Delete
End If

Citation:
Envoyé par chapeau_melon
L'avant dernière ligne donne une erreur et je n'arrive pas à trouver pourquoi ? (erreur : Object required objFile )

Bien à vous
Code:

1 2 3 4 5 6 7 For Each objFile In objFSO.GetFolder(FolderName).Files strCurrentExt = objFSO.GetExtensionName(objFile.Path) next If strCurrentExt = "rtf" Then objFile.Delete End If
objFile est défini dans ton "For Each". Sa portée s'arrête donc à Next, donc au moment où tu fais ton DELETE, il est considéré comme inexistant.

Cela devrait fonctionner avec
Code:

1 2 3 4 5 6 For Each objFile In objFSO.GetFolder(FolderName).Files strCurrentExt = objFSO.GetExtensionName(objFile.Path) If strCurrentExt = "rtf" Then objFile.Delete End If NEXT

05/06/2007, 21h04
chapeau_melon

hmm, quand je fais cela je reçoi comme erreur : Permission Denied : Line 29 Char 1 ?
05/06/2007, 21h14
SfJ5Rpw8

et c'est laquelle la ligne 29 ..?

à tu les droits pour effacer ce fichier ...? (affiche son nom pour être sur que c'est le bon .....)

La ligne 29 est encore avec objFile

Code:

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
 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile2 = objFSO.GetFile("WordVBS.vbs") 
FolderName=objFSO.GetParentFolderName(objFile2)&"\Word\" 
 
For Each objFile In objFSO.GetFolder(FolderName).Files 
Filename = objFSO.GetBaseName(objFile.Path)
strCurrentExt = objFSO.GetExtensionName(objFile.Path) 
next 
 
PrinttemplateFolder=objFSO.GetParentFolderName(objFile2)&"\Printtemplate\"
Set objWord = CreateObject("Word.Application")
objWord.Visible = False
Set objDoc= objWord.Documents.Open(Foldername&"rtf.rtf")
Set objSelection= objWord.Selection
objSelection.Wholestory()
objSelection.copy()
Set objWord1 = CreateObject("Word.Application")
objWord1.Visible = False
Set objDoc1 = objWord1.Documents.Add(PrinttemplateFolder&"printtemplate.dot")
Set objSelection1= objWord1.Selection
objSelection1.Paste()
objDoc1.SaveAs(Foldername&Filename&".doc")
ObjWord1.Quit
ObjWord.Quit  
 
For Each objFile In objFSO.GetFolder(FolderName).Files 
strCurrentExt = objFSO.GetExtensionName(objFile.Path)   
If strCurrentExt = "rtf" Then 
objFile.Delete
End If
next

J'ai trouvé, Le fichier étant toujours ouvert lors de manipulations, forcément l'accès est bloqué. Un pause à résolu le problème.

Merci à tous

Code:

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
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile2 = objFSO.GetFile("WordVBS.vbs") 
FolderName=objFSO.GetParentFolderName(objFile2)&"\Word\" 

For Each objFile In objFSO.GetFolder(FolderName).Files 
Filename = objFSO.GetBaseName(objFile.Path)
next 

PrinttemplateFolder=objFSO.GetParentFolderName(objFile2)&"\Printtemplate\"
Set objWord = CreateObject("Word.Application")
objWord.Visible = False
Set objDoc= objWord.Documents.Open(Foldername&"rtf.rtf")
Set objSelection= objWord.Selection
objSelection.Wholestory()
objSelection.copy()
Set objWord1 = CreateObject("Word.Application")
objWord1.Visible = False
Set objDoc1 = objWord1.Documents.Add(PrinttemplateFolder&"printtemplate.dot")
Set objSelection1= objWord1.Selection
objSelection1.Paste()
objDoc1.SaveAs(Foldername&Filename&".doc")
ObjWord1.Quit
ObjWord.Quit 

WScript.Sleep 5000

Set objFSO3 = CreateObject("Scripting.FileSystemObject")
Set objFolder3 = objFSO3.GetFolder(FolderName)
Set colFiles3 = objFolder3.Files
for each objFile in colFiles3
name3 = objFSO3.GetExtensionName(objFile)
file3=objFSO3.GetFile(objFile)
If name3 = "rtf" Then 
objFSO3.DeleteFile(file3),True
End If
next