Problème Kill fichier dans TEMP

Version imprimable

Voir 40 message(s) de cette discussion en une page

26/08/2008, 18h02
ouskel'n'or

Citation:

Envoyé par fthem

Code:

"C:\Documents and Settings\F71922\Local Settings\Temporary Internet Files\Content.IE5\GFGZW7O3\acrboimport[1].xls"

ce chemin est différent à chaque fois
ce qui change est en rouge

Alors c'est l'utilisateur ! Tu peux avoir son Nom ainsi

Code:

Nom = Application.Environ("USERNAME")

Tu testes... Je pense que tu n'en es plus à ça près :mouarf:
Bon courage

Edit
Ce qui devrait donner

Code:

Chemin = "C:\Documents and Settings\" & Nom & "\Local Settings\Temporary Internet Files\Content.IE5\GFGZW7O3\acrboimport[1].xls"

Bonjour voici le code d'un fichier .vbs qui supprime toutes les fichiers et dossiers dans le dossier temporaire

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
 
 
'===DeleteTempFiles.vbs===
 
'from Michael Harris
'http://groups.google.com/groups?threadm=%23bXVsIHnAHA.920%40tkmsftngp02
 
 
Const TemporaryFolder = 2 'for GetSpecialFolder 
 
 
set fso = createobject("scripting.filesystemobject") 
 
 
'init an empty array (ubound will be -1)... 
' 
'we use an array and store the file objects. 
'this avoids any problems with altering the 
'contents of the Files collections while they 
'are being iterated. 
' 
arFiles = array() 
count = -1 
 
 
'get the path to the temp folder 
' 
tempdir = fso.GetSpecialFolder(TemporaryFolder) 
 
 
'load the (global scope) arFiles 
'SelectFiles calls itself recursively 
'for SubFolders 
' 
SelectFiles tempdir 
msgbox count+1 & " files found" 
'now do the actual deletes.  the error trap 
'is in case any are in-use... 
' 
dcount = 0 
for each file in arFiles 
  on error resume next 
  file.delete true 
  if err.number = 0 then dcount = dcount + 1 
  err.clear 
  on error goto 0 
next 
 
 
'now go back and delete empty folders 
'below the temp folder 
 
 
DeleteEmptyFolders tempdir,false 
 
 
'comment out for "silent" operation, 
'or add support for a "/s" command-line switch. 
' 
msgbox count+1 & " files found, " & dcount & " deleted." 
 
 
sub SelectFiles(sPath) 
 
 
  'select files to delete and add to array... 
  ' 
  set folder = fso.getfolder(sPath) 
  set files = folder.files 
 
 
  for each file in files 
    count = count + 1 
    redim preserve arFiles(count) 
    set arFiles(count) = file 
  next 
 
 
  for each fldr in folder.subfolders 
    SelectFiles fldr.path 
  next 
 
 
end sub 
 
 
sub DeleteEmptyFolders(sPath,bDeleteThisFolder) 
 
 
  set folder = fso.getfolder(sPath) 
 
 
  'recurse first... 
  '   
  for each fldr in folder.subfolders 
    DeleteEmptyFolders fldr.path,true 
  next 
 
 
  'if no files or folders then delete... 
  ' 
  'bDeleteThisFolder is false for 
  'the root of the subtree, and true for 
  'sub-folders (unless you want to delete 
  'the entire subtree if it is empty). 
  ' 
  if (folder.files.count = 0) and _ 
     (folder.subfolders.count) = 0 and _ 
     bDeleteThisFolder then 
    folder.delete 
    exit sub 
  end if 
 
 
end sub 
' 
'===end-script===

26/08/2008, 19h18
ced600

Bah tant qu'à faire, delphidelphi à raison autant tout supprimé, de toute façon les données que contiennent ces dossiers ne sont utilies que temporairement ;)

Par contre delphidelphi, sais tu si ton script supprime le contenu de ContentIE5 ?
Parce que ce n'est pas un dossier caché, et pourtant il n'est pas visible dans l'explorer :)
Je ne sais pas si c'est une fonctionnalité de l'explorer pour cacher ce genre de répertoire "spécial" ou s'il a un système de droit particulier.

Citation:

Envoyé par fthem

lorsque je suis sur mon site intranet je clique sur un bouton qui m'ouvre excel sur le PC du client (petit programme writeexcel qui permet cela) en envoyant dans les cellules des données de la BD + des liens que j'ai écris dans le php , ces liens pointes vers des classeurs excel Types qui se trouvent dans le serveur avec la BD , le client clique donc sur un de ces liens, et ouvre donc le 2ème fichier excel .../...
Citation:
Envoyé par fthem
info trouvée sur le net concernant l'api DeleteUrlCacheEntry :
Code:

1 2 3 4 5 6 il faut utiliser l'api DeleteUrlCacheEntry Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" _ (ByVal lpszUrlName As String) As Long son paramètre est l'adresse complète de la page (ou fichier) à supprimer
Mais comment je fait dans mon cas sachant que mon chemin est à chaque fois difFérent?????
Non celle de l'url ayant générée le cache (marquée en gras dans le post précédent -
à toi d'agir au moment voulu pour supprimer l'image dans le cache.

voir http://allapi.mentalis.org/apilist/D...cheEntry.shtml
ainsi que l'exemple http://allapi.mentalis.org/apilist/F...C5DA57848.html

Citation:

Envoyé par ced600

Bah tant qu'à faire, delphidelphi à raison autant tout supprimé, de toute façon les données que contiennent ces dossiers ne sont utilies que temporairement ;)
.../...

:mouarf2:
Top programmation.

27/08/2008, 20h13
Montor

Pour quoi pas activation de l'option vider le dossier Temporary Internet File dans (Option internet -> Avancé)
28/08/2008, 08h50
fthem

Salut

Code:

Pour quoi pas activation de l'option vider le dossier Temporary Internet File dans (Option internet -> Avancé)

Non car à chaque mise à jour de nos cher services informatiques (c'est à dire chaques nuits) ils remmettent les conf par défaut:evilred:

je n'ai pas trops répondu depuis hier car je'essais pas mal de solutions surtout du coté du code php, mais je n'avance pas trops.
28/08/2008, 09h05
Godzestla

Salut,

juste pour dire de ne pas oublier d'essayer la solution «DeleteUrlCacheEntry» avec le .fullname que tu sais trouver, après avoir préalablement fermé le fichier test[1].xls. ;)

Bonne journée.
28/08/2008, 09h09
MaitrePylos

Bonjour,
Puis-je voir le code PHP qui génère le fichier Excel?

Voici le code:(j'ai pratiquement tout mis même la requête)

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
<?php
 
//set_time_limit(300);
 
 
require "acrbo.php";
include "date_lib.php";
 
 
$cle=$_GET['cle'];
 
 
 
//connection à la base
 
 $id=MYSQL_CONNECT($serveur,$user,$pass) or die ( mysql_errno().": ".mysql_error());
     mysql_select_db($base) or die ( mysql_errno().": ".mysql_error());
 
 
// ouverture de la fiche
     $sql="SELECT $table.cle,$table.date,$table.heure,$table.titre,$table.x_num,$table.y_num,$table.utilisateur,$table.site,$table.poste_source,$table.depart,$table.type,$table.nitst,$table.message_prive,$table.siege,$table.cause,$table.i_nip,$table.i_nitst,$table_nip.ouvrage,$table_nip.travaux,$table_nip.DateFin,$table_nip.HeureFin,$table_nip.HeureDebut,$table_nitst.objet,$table_nitst.n_bt,$table_nitst.observations,$table_nitst.h_debut,$table_nitst.h_fin,$table_nitst.observations,$table_nitst.ot,$table_nitst.sr,$table_nitst.commune,$table_nitst.lieu_dit,$table_nitst.n,$table_nitst.ps,$table_nitst.appareils_ou_ponts0,$table_nitst.a_ouvrir0,$table_nitst.a_condamner_ouvert0,$table_nitst.appareils_ou_ponts1,$table_nitst.a_ouvrir1,$table_nitst.a_condamner_ouvert1,$table_nitst.appareils_ou_ponts2,$table_nitst.a_ouvrir2,$table_nitst.a_condamner_ouvert2,$table_nitst.dmc,$table_nitst.T20kv0,$table_nitst.T20kv1,$table_nitst.T20kv2,$table_nitst.longueur,$table_nitst.section_nature,$table_nitst.poste_source0,$table_nitst.depart0,$table_nitst.a0,$table_nitst.b0,$table_nitst.poste_source1,$table_nitst.depart1,$table_nitst.a1,$table_nitst.b1 FROM $table,$table_nip,$table_nitst WHERE $table.cle='$cle' AND $table_nip.cle=$table.i_nip AND $table_nitst.cle=$table.i_nitst;";
     $result = mysql_db_query($base,$sql) or die ( mysql_errno().": ".mysql_error());
     $row = mysql_fetch_array($result);
 
     // ligne suivante ne devrait plus se produire depuis le passage de (DELETE puis INSERT) vers UPDATE
     if (mysql_num_rows($result)==0) die ("L''enregistrement à été modifié depuis...");
 
     $utilisateur=$row[utilisateur];
     $fr_date=french($row[date]);
     $Date_fin=french($row[DateFin]);
     $heure=$row[heure];
     $Heure_Fin=$row[HeureFin];
     $Heure_Debut=$row[HeureDebut];
     $type=$row[type];
     $titre=$row[titre];
     $x_num=$row[x_num];
     $y_num=$row[y_num];
     $site=$row[site];
     $poste_source=$row[poste_source];
     $depart=$row[depart];
     $message_prive=$row[message_prive];
     $siege=$row[siege];
     $cause=$row[cause];
 
	//champs NIP
        $i_nip=$row[i_nip];
	$ouvrage=$row[ouvrage];
	$travaux=$row[travaux];
 
	//champs NITST
	$objet=$row[objet];
	$n_bt=$row[n_bt];
	$zone_rse=$row[observations];
            $poste_source0=$row[poste_source0];
            $poste_source1=$row[poste_source1];
            $depart0=$row[depart0];
            $depart1=$row[depart1];
            $rse_a0=$row[a0];
            $rse_b0=$row[b0];
            $rse_a1=$row[a1];
            $rse_b1=$row[b1];
                $ot=$row[ot];
                $sr=$row[sr];
                $commune=$row[commune];
                $lieu_dit=$row[lieu_dit];
                $n=$row[n];
                $ps=$row[ps];
                $T20kv0=$row[T20kv0];
                $T20kv1=$row[T20kv1];
                $T20kv2=$row[T20kv2];    
                $longueur=$row[longueur];
                $section_nature=$row[section_nature];
                $dmc=$row[dmc];
 
 
 
        //VARIABLES POUR L EXPORT EXCEL 
        $Url01="http:\\\\acrnmp.kwe.egs.edf.fr\FCMOtypes\PLAN08.xls";
        $Url02="http:\\\\acrnmp.kwe.egs.edf.fr\FCMOtypes\MAJ08.xls";
        //$Url02="http:\\\\acrnmp.kwe.egs.edf.fr\ACRBO5\files\MAJ2008.xls";
                $Url0="http:\\\\acrnmp.kwe.egs.edf.fr\FCMOtypes\FCMO0.xls";
                $Url1="http:\\\\acrnmp.kwe.egs.edf.fr\FCMOtypes\FCMO1.xls";
                $Url2="http:\\\\acrnmp.kwe.egs.edf.fr\FCMOtypes\FCMO2.xls";
                $Url3="http:\\\\acrnmp.kwe.egs.edf.fr\FCMOtypes\FCMO3.xls";
                $Url4="http:\\\\acrnmp.kwe.egs.edf.fr\FCMOtypes\FCMO4.xls";
                $Url5="http:\\\\acrnmp.kwe.egs.edf.fr\FCMOtypes\FCMO5.xls";
                $Url6="http:\\\\acrnmp.kwe.egs.edf.fr\FCMOtypes\FCMO6.xls";
                $Url7="http:\\\\acrnmp.kwe.egs.edf.fr\FCMOtypes\FCMO7.xls";
                $Url8="http:\\\\acrnmp.kwe.egs.edf.fr\FCMOtypes\FCMO8.xls";
                $Url9="http:\\\\acrnmp.kwe.egs.edf.fr\FCMOtypes\FCMO9.xls";
                $Url10="http:\\\\acrnmp.kwe.egs.edf.fr\FCMOtypes\FCMO10.xls";
                //$Url1="http:\\\\acrnmp.kwe.egs.edf.fr\ACRBO5\files\FCMO5.xls";
		$numero=$titre."_".$x_num."-".$y_num;	
 
                if ($row[a0]=="1") {$rse_a0= "RSE A";}
                if ($row[b0]=="1") {$rse_b0= "RSE B";}
                if ($row[a1]=="1") {$rse_a1= "RSE A";}
                if ($row[b1]=="1") {$rse_b1= "RSE B";}                
 
 
     set_time_limit(10);	
     require_once 'Spreadsheet/Excel/Writer.php';
     // CREATION FICHIER     
 
	$workbook = new Spreadsheet_Excel_Writer();
        $workbook->SetTempDir('/tempdoc');
	$workbook->send('acrboimport.xls');
	$worksheet =& $workbook->addWorksheet("FDMexport");       
 
        //format hauteur ligne
        $worksheet->setRow(1, 20);
        $worksheet->setRow(3, 22);
        $worksheet->setRow(4, 65);
 
 
        //$worksheet->setColumn(0, 3, 30);
        $worksheet->setcolumn(1,1,50); 
        $worksheet->setcolumn(5,5,11);  
 
 
        $format1 =& $workbook->addFormat(
array(
'FgColor' => 'silver'));//couleur du fond de cellule
 
 
for ($i = 0; $i < 22; $i++)
{
	for ($j = 0; $j <6; $j++) {
 
 
		$worksheet->write($j,$i,'',$format1);
 
	}
 
}
 
$format2 =& $workbook->addFormat(
array(
'FgColor' => 'yellow'));//couleur du fond de cellule
 
 
for ($i = 0; $i < 22; $i++)
{
	for ($j = 6; $j <64; $j++) {
 
 
		$worksheet->write($j,$i,'',$format2);
 
	}
 
}
        //format0 écrit sur fond jaune
        $border0 =& $workbook->addformat();  
        $border0->SetColor('blue');
        $border0->SetFgColor('yellow'); 
        $border0->SetUnderline(1);                         
        //format1 écrit en gris sur fond gris
        $border1 =& $workbook->addformat();  
        $border1->SetColor('silver');
        $border1->SetFgColor('silver');
 
 
     //ECRITURE DE LA PAGE
        $worksheet->write(1 ,5 , "Prévue le", $border3);
        $worksheet->write(1 ,6 , "$fr_date", $border2);
        $worksheet->write(0 ,7 , "Date fin", $border1);
        $worksheet->write(0 ,8 , "$Date_fin", $border1);
	$worksheet->write(1 ,1 , "$type", $border8);
        $worksheet->write(1 ,2 , "$numero", $border2);     
 
 
 
        $worksheet->write(31 ,2 , "Situer le chantier ou faire une Fiche de Mise à jour ", $border5);
        $worksheet->write(32 ,1 , "Outils Plan:", $border7);
        $worksheet->writeUrl(32 ,3 , "$Url01", "Plan pour situer le chantier", $border0);
        $worksheet->write(33 ,1 , "Outils MAJ:", $border7);
        $worksheet->writeUrl(33 ,3 , "$Url02", "Mise à jour DMEO AMEO", $border0);
        $worksheet->write(6 ,2 , "Choisir la FCMO qui correspond le mieux à votre affaire", $border5);
        $worksheet->write(7 ,1 , "FCMO Vierge", $border9);
        $worksheet->writeUrl(8 ,1 , "$Url0", "FCMO Vierge avec en tête préremplie", $border0);
        $worksheet->write(10 ,1 , "RDCR aval", $border9);
        $worksheet->writeUrl(11 ,1 , "$Url1", "Rdcr aval IACM pour travaux", $border0);
        $worksheet->writeUrl(12 ,1 , "$Url2", "Rdcr aval IACM pour travaux avec MEC ou MHC", $border0);
        $worksheet->writeUrl(13 ,1 , "$Url3", "Rdcr aval IACM consignation en 2 étapes", $border0);
        $worksheet->writeUrl(14 ,1 , "$Url4", "Rdcr aval IACM consignation en 2 étapes avec MEC ou MHC", $border0);
        $worksheet->write(16 ,1 , "RDCR entre 2 appareils", $border9);
        $worksheet->writeUrl(17 ,1 , "$Url5", "Rdcr entre 2 IACM 1er étape de consignation ", $border0);
        $worksheet->writeUrl(18 ,1 , "$Url6", "Rdcr entre 2 IACM Consignation pour travaux ", $border0);
        $worksheet->writeUrl(20 ,1 , "$Url7", "Réparation ou réfection jonction entre 2 postes ", $border0);
        $worksheet->writeUrl(22 ,1 , "$Url8", "Mise hors tension poste privé situé entre 2 postes", $border0);
        $worksheet->write(24 ,1 , "Raccordement d'un poste en coupure d'artère ", $border9);        
        $worksheet->writeUrl(25 ,1 , "$Url9", "- avec mise sous tension nouveau poste 1 cellule fermée", $border0);       
        $worksheet->writeUrl(26 ,1 , "$Url10", "- avec mise sous tension nouveau poste 2 cellules ouvertes", $border0);
 
 
	$workbook->close();
	$workbook->sendFile();

28/08/2008, 10h12
MaitrePylos
Essayer ceci :

1) Remplacer voter code par ceci
Code:

1 2 3 4 $nomFichier = tempnam('%temp%','acrboimport.xls'); $workbook = new Spreadsheet_Excel_Writer($nomFichier); $workbook->send($nomFichier)
Attention, faudra peut-être vérifier que %temp% pointe bien vers /documentAndSetting...../temp

2) Vous parler que cela génère tout le temps le fichier test[1].xls, or dans votre premier post, vous générer explicitement ce fichier.

Pour ne plus qu'il apparaisse dans la génération il faut le supprimer , car je pense qu'il se trouve à la racine de votre programme PHP
28/08/2008, 10h27
fthem
Citation:

Envoyé par MaitrePylos

2) Vous parler que cela génère tout le temps le fichier test[1].xls, or dans votre premier post, vous générer explicitement ce fichier.

Non, attention, le code VBA ci dessous se trouve dans mon 2ème fichier excel et j'utilise pour l'instant test[1].xls car c'est celui qui s'ouvre 70%du temps
Code:

1 2 3 4 Workbooks("test[1].xls").Activate ActiveWorkbook.Saved = True ActiveWorkbook.Close Kill ("test[1].xls")
J'ai mis :
Code:

1 2 3 $nomFichier = tempnam('%temp%','acrboimport.xls'); $workbook = new Spreadsheet_Excel_Writer($nomFichier); $workbook->send($nomFichier)
toujours la même erreur
Parse error: parse error, unexpected T_STRING, expecting T_OLD_FUNCTION or T_FUNCTION or T_VAR or '}' in c:\program files\easyphp\www\acrbo5\Spreadsheet\Excel\Writer.php on line 47

Fatal error: Cannot instantiate non-existent class: spreadsheet_excel_writer in c:\program files\easyphp\www\acrbo5\gda.php on line 105
28/08/2008, 10h34
MaitrePylos

Ok, vérifier alors qu'il n'existe pas un fichier 'test[1].xls' dans la racine du code PHP où quelque part dans la répertoire web de votre application PHP .

Citation:

Fatal error: Cannot instantiate non-existent class: spreadsheet_excel_writer in c:\program files\easyphp\www\acrbo5\gda.php on line 105

La classe n'existe pas, donc un erreur dans le require_once
28/08/2008, 11h41
fthem

Je ne pige pas,
dans le code de write.php on fait un

Code:

require once PEAR.php

Mais ma structure mise en place telle celle que tu indiques, je ne voit pas de fichier PEAR.php
????????
28/08/2008, 11h56
MaitrePylos

Pourtant dans mes sources, le fichier se trouve bien dans le répertoire

Spreedsheat/Excel
28/08/2008, 14h11
fthem

je ne veut pas te blesser mais il n'y a pas de fichier pear.php dans ta structure

http://g-ernaelsten.developpez.com/tutoriels/excelphp/

je n'arrive pas à trouver un site ou télécharger ce fichier dans le zip spreadsheet il ne s'y trouve pas...
28/08/2008, 14h21
MaitrePylos
Je pense qu'il y a un Alien entre nous dans mon ZIP, il y la fichier PEAR.php, si tu ne le trouve pas, envoie moi ton mail en MP.

Par contre pour ton souci, dans le fichier

Spreadsheet/Execl/Writer.php, modifie cette méthode de cette façon.
Code:

1 2 3 4 5 6 function Spreadsheet_Excel_Writer($filename = 'test.xls') { //$this->_filename = tempnam('/tmp','$filename'); $this->Spreadsheet_Excel_Writer_Workbook($filename); }
Je pense que comme tu n'est pas sous Unix, que cela pourras faire avancé le schmilblick .
28/08/2008, 16h06
fthem

Merci pour tout à tous et à maitre Pylos

je pense que la solution est de supprimer cette ligne dans le code comme me l'avait suggéré un autre forumer dont je ne trouve plus le nom

Code:

$workbook->send('nomdefichier.xls');

en supprimant cette ligne cela fait qu'à chaque fois mon nouveau fichier ECRASE l'ancien
cela vous parait-il OK
Pour moi ça a l'air de marcher...

Citation:

Par contre delphidelphi, sais tu si ton script supprime le contenu de ContentIE5 ?
Parce que ce n'est pas un dossier caché, et pourtant il n'est pas visible dans l'explorer
Je ne sais pas si c'est une fonctionnalité de l'explorer pour cacher ce genre de répertoire "spécial" ou s'il a un système de droit particulier.

pour afficher les dossiers et les fichier dans Temporary Internet Files
cliquer sur demarrer -> executer
taper %USERPROFILE%\Local Settings\Temporary Internet Files\desktop.ini effacer le contenu de ce fichier et enregister puis aller explorer le dossier Temporary Internet Files
Noter que ce fichier il sera resstaurer automatiquement au prochain démarrage

Je ne comprends pas ça ouskel'n'or
Code:

1 2 Nom = Application.Environ("USERNAME")
voici une autre solution
Attention Attention Attention si vous modifiez Split vous risquer de supprimer le contenu de UserName désactiver file.Delete True d'abord
Attention Attention Attention si vous modifiez Split vous risquer de supprimer le contenu de UserName désactiver file.Delete True d'abord
Attention Attention Attention si vous modifiez Split vous risquer de supprimer le contenu de UserName désactiver file.Delete True d'abord
ou simplement faire entrer le nom de l'ulilisateur manualement à "nom"
ce code vide le dossier Temporary Internet Files mais le cache
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 38 39 40 41 42 43 44 Option Explicit Private Type Users name As String * 255 End Type Private Declare Function GetUserName Lib "advapi32" Alias "GetUserNameA" (dd As Users, ss As Long) As Boolean Dim Count, DCount As Long Dim FSO As Object Sub SelectFiles(sPath) Dim folder, Files, file, fldr As Variant Set folder = FSO.getfolder(sPath) Set Files = folder.Files For Each file In Files Count = Count + 1 On Error Resume Next 'delete file.Delete True If Err.Number = 0 Then DCount = DCount + 1 Err.Clear Next For Each fldr In folder.subfolders SelectFiles fldr.Path Next End Sub Sub DeleteEmptyFolders() Count = 0 DCount = 0 Dim usr As Users Dim nom As String Dim st As Variant If GetUserName(usr, 255) Then 'Attention Attention Attention si vous modifiez Split vous risquer de supprimer le contenu de UserName désactiver file.Delete True d'abord st = Split(usr.name, "") nom = "C:\Documents and Settings\" & st(0) & "\Local Settings\Temporary Internet Files" Set FSO = CreateObject("scripting.filesystemobject") Call SelectFiles(nom) MsgBox Count & "Trouve(s)- " & DCount & "Supprime(s) dans " & nom Else MsgBox "erreur" End If End Sub

29/08/2008, 10h33
fthem

Et pour finir la semaine en beautée
ça ne marche pas !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!:evilred:
aprés une 40ène , je dis bien une 40ène d'essais OK, ça vient de m'ouvrir un acrboimport[2].xls:alerte:

j'en ai marre

DUR DUR D'ETRE UN:traine:

supprimer le send, c'est ne pas envoyer les entête et donc le risque que ton navigateur ne sache pas ce que tu veux.

Code:

1
2
3
4
5
6
7
8
9
 
	function send($filename='fichier.xls')
	{
		header("Content-type: application/vnd.ms-excel");
		header("Content-Disposition: attachment; filename=\"$filename\"");
		header("Expires: 0");
		header("Cache-Control: must-revalidate, post-check=0,pre-check=0");
		header("Pragma: public");
	}

Voir 40 message(s) de cette discussion en une page