dovresti fare un controllo dei file nella cartella dei file che vuoi spedire:

questo è un esempio di lopp ricorsivo:


''''''start code
Dim AttributiFile As Integer
Dim ElencoCartelle$
Dim file$
ElencoCartelle$ = ""
If Right$(ActPath$, 1) <> "\" Then ActPath$ = ActPath$ & "\"

On Error Resume Next
file$ = Dir$(ActPath$ & "*.*", vbDirectory + vbNormal)'tutti i files

'file$ = Dir$(ActPath$ & ".txt", vbDirectory + vbNormal)
'solo file txt

Do While Len(file$)

If file$ <> "." And file$ <> ".." Then
Err = 0
If Err = 0 Then
If (AttributiFile And vbDirectory) Then

ElencoCartelle$ = ElencoCartelle$ & file$ & vbCrLf
Stop
Else
' File$ è un file
End If
End If
End If
file$ = Dir$

If file$ = ".." Then GoTo errore
'''''''''''''''''''''''''''''''''''''''''''''
'in questo punto esegui il send del file

Inet1.Execute(, "SEND " & file$)

'''''''''''''''''''''''''''''''''''''''

errore:
Loop


'''''end code


link
homepage http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
forum http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp