Help se VB6

[Pytzamarama]

Me tis simvules kapoiou insomniac ftiaxtike se vb 6 to parakato programma pu<BR>kanei copy ena arxeio .txt se .bak allazontas to filename me tin current date(xoris \)<BR>Dim a As String<BR>Dim day As String<BR>Dim month As String<BR>Dim year As String<BR>Dim str As String<P>Private Sub Command1_Click()<BR>a = Date<BR>day = Left(a, 1)<BR>month = Mid(a, 3, 1)<BR>year = Right$(a, 2)<BR>str = "copy d:\ping.txt d:\pong" + day + "-" + month + "-" + year + ".bak"<BR>(opou to output vgainei <str = copy d:\ping.txt d:\pong5-3-01.bak> kai to d:\ping.txt IPARXEI!!!!!!)<BR>Call Shell(str) 'edo varaei "Run Time Error 53 File Not Found??!!!!" <BR>End Sub<BR>Fovamai pos kati paizei me to call shell.<BR>HELP!!!

[Pytzamarama]

Akiro...to vrika

[Winner]

asxeto alla iparxei kai i entoli FileCopy an den thes na xrisimopoiiseis tin Shell...

[Pytzamarama]

i sosti ekdohi ine:<BR>Dim a As String<BR>Dim day As String<BR>Dim month As String<BR>Dim year As String<BR>Dim str As String<BR>Dim str2 As String<BR>Dim st As String<BR>Dim st2 As String<BR>Dim fsys As Object<P>Private Sub Command1_Click()<BR>Set fsys = CreateObject("scripting.filesystemobject")<BR>a = Date<BR>day = Left(a, 1)<BR>month = Mid(a, 3, 1)<BR>year = Right$(a, 2)<BR>str = "d:\backup\payment" + day + "-" + month + "-" + year + ".bak"<BR>str2 = "d:\payment.txt"<BR>st = "d:\backup\midtl" + day + "-" + month + "-" + year + ".bak"<BR>st2 = "d:\midtl.txt"<BR>Text1.Text = str<BR>Text2.Text = str2<BR>Text3.Text = st2<BR>Text4.Text = st<BR>fsys.copyfile str2, str<BR>fsys.copyfile st2, st<BR>Command1.Caption = "Copying completed!!"<BR>Command1.Enabled = False<BR>Command2.Visible = True<BR>End Sub<P>Private Sub Command2_Click()<BR>Unload Me<BR>End Sub<P>Private Sub Form_Load()<BR>Form1.Caption = "ASCII BACKUP"<BR>Command2.Caption = "EXIT"<BR>Command1.Caption = "BACKUP...."<BR>Label1.Alignment = 2<BR>Label2.Alignment = 2<BR>Text1.Text = ""<BR>Text2.Text = ""<BR>Text3.Text = ""<BR>Text4.Text = ""<BR>Form1.BackColor = &HFF8080<BR>Label1.BackColor = &HFF8080<BR>Label2.BackColor = &HFF8080<BR>Label1.ForeColor = vbWhite<BR>Label2.ForeColor = vbWhite<BR>Label1.Caption = " COPIED FROM "<BR>Label2.Caption = " TO "<BR>Command2.Visible = False<BR>End Sub<P>