Modifica estensione File [vb6]

[Mabi]

Potresti recuperare il nome di ogni file con la Dir e modificarlo con la Name.
Ad esempio:

Const NuovaEstensione = "zap"
Dim NomeFile As String

NomeFile = "C:\File1.zip"
Name NomeFile As Left(NomeFile, (Len(NomeFile) - 3&)) & NuovaEstensione