Lagre fil med FSO så filnavn blir unikt

'Oppretter nytt filnavn
FilNavn = now()

strDay = Day( FilNavn )
if len(strDay) = 1 then
    strDay = "0" & strDay
end if
           
strMonth = Month( FilNavn )
if len(strMonth) = 1 then
    strMonth = "0" & strMonth
end if
       
strYear = Year( FilNavn )
if len(strYear) = 1 then
    strYear = "0" & strYear
end if
           
strHour = Hour( FilNavn )
if len(strHour) = 1 then
    strHour = "0" & strHour
end if
       
strMinute = Minute( FilNavn )
if len(strMinute) = 1 then
    strMinute = "0" & strMinute
end if
           
strSecond = Second( FilNavn )
if len(strSecond) = 1 then
    strSecond = "0" & strSecond
end if
       
FilNavn = strYear & "." & strMonth & "." & strDay & " KL " & strHour & "." & strMinute & "." & strSecond & ".txt"
'Nytt filnavn slutt

'Kopierer filen til logg mappen
strOKPath = "d:\import_files_log\" & strFil
strOKPath = "d:\import_files_log\" & FilNavn
FSO.CopyFile strPath,strOKPath