VBA funzione KILL files senza estensione

[mauriz...@infinito.it]

Salve a tutti,

come è possibili tramite il comando VBA "Kill" eliminare all'interno di determinata directory ad es. c\vari\ tutti i files che iniziano con il prefisso "StopEdit_" a cui si aggiunge una variabile numerica che NON conosco:

es. di files da kill:

StopEdit_5
StopEdit_12
StopEdit_77
StopEdit_991


p.s. i file da eliminare NON hanno estensione.

TIA.

[Norman Jones]

Prova qualcosa del genere:
'=========>>
Option Explicit

'--------->>
Public Sub Tester()
Const sPercorso As String = _
"C:\Utentis\Maurizio\Documenti\" '<<=== Modifica
Const sPrefisso As String = "StopEdit"

Kill sPercorso & sPrefisso & "*"
End Sub
'<<=========



--



===
Regards,
Norman

[mauriz...@infinito.it]

PERFECT.

[mauriz...@infinito.it]

Il giorno giovedì 28 aprile 2016 10:56:22 UTC+2, Norman Jones ha scritto:

Ciao Norman,
ma se il file/files invece NON esistessero?

Cioè vorrei effettuare l'operazione di KILL sempre anche qualora NON vi fosse nulla da kill.

[Norman Jones]

Ciao Maurizio,

On 28/04/2016 11:00, mauriz...@infinito.it wrote:
> ma se il file/files invece NON esistessero?
>
> Cioè vorrei effettuare l'operazione di KILL sempre anche qualora NON vi fosse nulla da kill.

Prova:

'=========>>
Option Explicit

'--------->>
Public Sub Tester()

Dim sStr As String

Const sPercorso As String = _

"C:\Users\NDJ\Documents\" '<<=== Modifica
Const aPrefisso As String = "StopEdit"

sStr = sPercorso & aPrefisso & "*"
If Dir(sStr) <> vbNullString Then
Kill sStr 'sPercorso & aPrefisso & "*"
End If
End Sub
'<<=========




===
Regards,
Norman

[mauriz...@infinito.it]

GRAZIE 1001