bat-filer, copy med dato?

Jeg tror desværre ikke det er muligt!
Du skal nok kode det i noget andet...
Tror vbs vil være det letteste!

Måske dette kan gøre det:

<%
dim filesys
set filesys=CreateObject("Scripting.FileSystemObject")
If filesys.FileExists("c:\sourcefolder\test.txt") Then
  filesys.CopyFile "c:\sourcefolder\test.txt", "c:\destfolder\datofil" + Day(Now) + Month(Date) + Year(Now) + ".txt"
End If
%>

Et stykke tid siden jeg har leget med vbs, men det script skal bare i en fil der hedder .vbs ?

Skulle jeg mene!
(har altså ikke testet scriptet, så ved ikke om det dur) :o)

Gider du lige teste det, jeg får nemlig en fejl :oP

Du kan prøve med denne, hvis du har Windows 2k/xp

for /f "tokens=*" %%i in ('date /t') do copy "test.txt" "datofil%%i.txt"

Tada...

Dim filesys
set filesys=CreateObject("Scripting.FileSystemObject")
If filesys.FileExists("c:\test\test.txt") Then
  filesys.CopyFile "c:\test\test.txt", "c:\test\datofil" + CStr(Day(Now)) + CStr(Month(Now)) + CStr(Year(Now)) + ".txt"
End If

Den virker ikke hos mig :o(
Script: d:\copy.vbs
Linje: 1
Tegn: 1
Fejl: En sætning car ventet
Kode: 800Ao400
Kilde: Der opstod en Microsoft VBScript-kompileringsfejl

Hvis du putter:
Dim filesys
set filesys=CreateObject("Scripting.FileSystemObject")
If filesys.FileExists("c:\test\test.txt") Then
  filesys.CopyFile "c:\test\test.txt", "c:\test\datofil" + CStr(Day(Now)) + CStr(Month(Now)) + CStr(Year(Now)) + ".txt"
End If

Og gemmer som navn.vbs
Virker det så ikke?

Du skal ikke have <% %> med...
Det var min fejl!

Nååh, så funker den :o)
En lille ting, hvis mdr eller dato er mindre end 10, skriver den ikke 01, 02, 03 osv. kun 1, 2, 3 osv.
Kan du lave det hurtigt? :o)

Værsgo Master...

Dim filesys,strDay,strMonth,strYear,strDate
set filesys=CreateObject("Scripting.FileSystemObject")
If filesys.FileExists("c:\test\test.txt") Then
    strDay  = CStr(Day(Now))
    strMonth = CStr(Month(Now))
    strYear  = CStr(Year(Now))
   
    If (Len(strDay) = 1) Then
        strDay = "0" + strDay
    End If
   
    If (Len(strMonth) = 1) Then
        strMonth = "0" + strMonth
    End If
   
    If (Len(strYear) = 1) Then
        strYear = "0" + strYear
    End If
   
    strDate = strDay + strMonth + strYear
   
  filesys.CopyFile "c:\test\test.txt", "c:\test\datofil" + strDate + ".txt"
End If

Lidt kortere:

Dim filesys,strDay,strMonth,strYear,strDate
set filesys=CreateObject("Scripting.FileSystemObject")
If filesys.FileExists("c:\test\test.txt") Then
    strDay  = CStr(Day(Now))
    strMonth = CStr(Month(Now))
    strYear  = CStr(Year(Now))
   
    If (Len(strDay) = 1) Then
        strDay = "0" + strDay
    End If
   
    If (Len(strMonth) = 1) Then
        strMonth = "0" + strMonth
    End If
   
    strDate = strDay + strMonth + strYear
   
  filesys.CopyFile "c:\test\test.txt", "c:\test\datofil" + strDate + ".txt"
End If

(ikke nødvendigt at tjekke YEAR)

Takker, smider du lige et svar? :o)

Svar...

Hvis man har Windows NT/2000/XP  kan man godt gøre det i en bat-fil:
copy Norge.doc "Norge%date%.doc"

tak for tippet.. men jakobdo lavede noget andet der virkede :o)

Takker!