Ok, trovata ( non mi andava di riscriverla da capo... oggi mi sento
pigro 
) :
Codice:
Public Function GetNomeFileTxt(ByVal D As DateTime) As String
Dim S As String
Dim Yr As String = D.Year.ToString
Dim Mh As String = D.Month.ToString.PadLeft(2, "0")
Dim Dy As String = D.Day.ToString.PadLeft(2, "0")
Dim hh As String = D.Hour.ToString.PadLeft(2, "0")
Dim mm As String = D.Minute.ToString.PadLeft(2, "0")
Dim ss As String = D.Second.ToString.PadLeft(2, "0")
S = Yr & "-" & Mh & "-" & Dy & "_" & hh & "." & mm & "." & ss & ".txt"
Return S
End Function
Perciņ basta sostituire in :
Codice:
Dim nomeFile As String = GetNomeFileTxt(DateTime.Now)
