Newsgroup: it.comp.lang.visual-basic
Titolo: Cancellare file del tipo nome*.est

Ciao a tutti, c'č modo di cancellare dei file utilizzando il carattere 
specia * oppure ? in vbscript controllando che esistano dei file con quel 
nome ?
Io ho provato cosě ma non va ...
nome = Server.MapPath(".") & "\del\*.css"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if objFSO.FileExists (nome) then
    objFSO.deleteFile(nome)
end if
Ciao e grazie mille
       Bruce

 Ciao e grazie mille
Private Sub Command1_Click()
   Dim s As String, p As String
   p = "c:htmltemp"
   s = Dir(p & "*.html")
   While s <> ""
      'kill p & s
      Debug.Print s
      s = Dir
   Wend
End Sub
ciao, a.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ciao, a.
Ciao, scusa ma non funziona :-D ho non mi trova Dir e neanche Kill ...
ciao
       Bruce 

"Bruce O'Canaan"

e' normale codice vb6. per funzionare ha bisogno solo di vb6.
con cosa stavi usando vbs?
questo e' codice vbs trovato cercando "vbscript delete files directory", 
forse puo' servirti, specie la parte for each f in fs .. if ...
ciao, a.
Place the following into a text file, and rename it to something with a .VBS 
extension:
 Dim FSO, F, FS, strYest, dtYest, i
 dtYest = Date - 1
 strYest = CStr(Year(dtYest)) & Right("0" & Month(dtYest), 2) & Right("0" & 
Day(dtYest), 2)
 Set FSO = CreateObject("scripting.filesystemobject")
 Set FS = FSO.GetFolder("H:\SDP\PRO\IN\").Files
 For Each F In FS
  i = InStr(1, F.Name, "_")
  If i > 0 Then
   If Mid(F.Name, i + 1, 8) = strYest Then F.Delete True
  End If
 Next
 Set F = Nothing
 Set FS = Nothing
 Set FSO = Nothing
 Set strYest = Nothing
 Set dtYest = Nothing
 Set i = Nothing
It will look at every file in the specified directory, and if the file name 
contains an underscore, it will look at the next 8 characters after it to 
see if it is yesterday's date.  If they match, the file is deleted. 

 ciao, a.
Quindi dici di leggere tutti i file e fare il controllo che mi serve ...
ci avevo pensato anche io ... perň era piů comodo se potevo fare un 
delete(nome*.jpg) :-D
Graze mille
      Bruce 

 > End Sub
C'è qualche errore di sintassi:
Private Sub Command1_Click()
    s = Dir("C:\Percorso\*.html")
    If s <> "" Then
        Do:Doevents
            Kill "C:\Percorso\" & s
            s = dir
        Loop Until s = ""
    End If
End Sub
--
Ciao Fede
By Chicco Production
http://www.webalice.it/bychicco/

 End Sub
qualche? uno: nel copia e incolla sono saltati gli slash
p = "c:\html\temp\"
per il resto:
1. vb6 il codice che ho postato lo esegue tranquillamente.
2. se usi option explicit, il tuo codice da' subito errore:
Microsoft Visual Basic
---------------------------
Compile error:
Variable not defined
---------------------------
il tuo codice sembra piu' corto perche' non perdi tempo a fare dichiarazioni 
e assegnazioni.
se non usi option explicit, sei un cattivo programmatore.
3. risultato del punto 2: io il percorso lo valorizzo una volta, tu due. se 
il percorso cambia, tu
devi cambiare a manina il 200%.
4. do-loop invece di while-wend e' solo una scelta diversa.
5. il tuo if e' totalmente inutile. la consistenza di s puoi e devi testarla 
nel ciclo.
6. anche doevents non serve a nulla. se lanci un comando del genere,vuoi che 
lo
faccia prima che puo', non vuoi interagire.
7. in un esempio che puo' essere copincollato, tu fai quel che ti pare, io
kill lo commento.
a proposito di errori, in
http://www.webalice.it/bychicco/
c'e' un errore di morfologia.
"applicativo" si scrive con una sola t. non e' il
contrario di applicapassivo o di applibuono.

 ha scritto nel messaggio
news:5s9j1kF...@mid.individual.net...


> > End Sub
Se un principiante prova il tuo codice è ovvio che non funziona,
...il mio sì!
Non te la prendere... e la vita!


>> >   Dim s As String, p As String <--- Superflui
rotfl
grazie, sono giornatacce, ci voleva una bella risata.
tu si' che puoi vendere programmi chicco
http://tinyurl.com/2tc38n

 ha scritto nel messaggio
news:5scovkF...@mid.individual.net...


 Grazie per avermi fatto notare l'errore sul sito, ho già provveduto...
you're welcome.
ciao, a.

 talvolta. ma qui non e' las vegas, e' un gruppo sulla programmazione.
...e giustamente ognuno di noi programma secondo le proprie direttive!
mi sai che ti sei montato un pò la testa.


 mi sai che ti sei montato un pņ la testa.
puo' essere. il che testimonia che a differenza di te, ne ho una.

 ha scritto nel messaggio
news:5sintoF...@mid.individual.net...


 ... mi spiace ma non posso aiutarti.
non mi stupisce.
non c'e' niente, che puoi.


oddio....ma l'avete visto il sito di questo *chicco*
marooooo,  è inguardabile!
certo se programmi come fai i siti.... ( o come te li fai fare)
saluti


sempre dal famoso sito
VB6 Tips -  Database
Query turni lavoro:
Presuponendo che ci siano 4 turni lavoro, identificare chi ha
effettuato solo il turno 4:
SELECT IDDipendente FROM TabellaGenerale WHERE NOT IN(SELECT
IDDipendente 
FROM TabellaGenerale WHERE IDTurno = 1 OR IDTurno = 2 OR IDTurno = 3) 
AND IDTurno = 4
mi dici perchè non basterebbe
SELECT IDDipendente FROM TabellaGenerale WHERE IDTurno = 4
saluti

 ha scritto nel messaggio
news:0vo9m39ibunhbjhcd...@4ax.com...


di spezzoni di codice prelevati dal NewsGroup!
Visto che parli di Query Semplice a me sembra più facile fare
SELECT IDDipendente FROM TabellaGenerale WHERE IDTurno = 4
che non
SELECT IDDipendente FROM TabellaGenerale WHERE NOT IN(SELECT
 IDDipendente
 FROM TabellaGenerale WHERE IDTurno = 1 OR IDTurno = 2 OR IDTurno = 3)
 AND IDTurno = 4
almeno nel contesto in tu lo scrivi.
idiota!
sam--

 ha scritto nel messaggio
news:779am3pckkhp2aqnr...@4ax.com...


'in tu lo scrivi' che lingua è ... Spagnolo?
Perchè non provi a estrarre i *.frm da i *.frx,
forse ti si corregge anche il linguaggio!
Vedo che non hai capito una mazza,
il problema (riferito alla query dei turni di lavoro)
è riuscire a capire chi ha effettuato
esclusivamente il turno 4 e mai il turno1, 2 o 3.
Leggiti tutti i post relativi prima di rispondere a casaccio!


Leggiti tutti i post relativi prima di rispondere a casaccio!
qui siamo alla base del SQL
 spiegami come una query del tipo
SELECT IDDipendente FROM TabellaGenerale WHERE IDTurno = 4
possa estrarre i turni fatti che NON siano il 4?
secondo me hai isolato troppo la query quando hai copiato la stessa
nel tuo favoloso sito web.
ripeto:
una query del tipo
SELECT IDDipendente FROM TabellaGenerale WHERE IDTurno = 4
estrae SOLO i dipendenti che hanno fatto il turno 4 e mai il turno 1,
2 o 3.
hai capito ora?

 ha scritto nel messaggio
news:uslcm3hetdcvjd4s9...@4ax.com...


ed evita di criticare ciò che tu stesso non sei in grado di capire!
Allora, il ragionamento che tu hai spiegato si scrive in questa
maniera:
Query turni lavoro:
Presupponendo (con due p...) che ci siano 4 turni lavoro, identificare
il dipendente che ha effettuato solo il turno 4, escludendo gli altri
dipendenti che potrebbere avere fatto il turno 4.
e non come hai scritto nel sito.
 
Query turni lavoro:
Presuponendo che ci siano 4 turni lavoro, identificare chi ha
effettuato solo il turno 4:
correggi!
sam--

 ha scritto nel messaggio 
news:325fm319am6nel94m...@4ax.com...


 ha scritto nel messaggio
news:fku3j1$i1c$1...@nnrp-beta.newsland.it...
