🚀 go-pugleaf

ok, tis gelukt. Maar het rare is dat ik voor de maand 18 krijg ipv 02. Heel
raar.
dus ik krijg de volgende bestandsnaam: OV2_21-18-2006_04-18-54.mdb

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
ChDrive("q")
ChDir("\www\beveiligd\software")
MsgBox("U hebt nu verbinding met de server van OV2, de upgrade zal nu
beginnen. U bevind zich in de volgende directory: " & CurDir())
ProgressBar1.Value = 0
Timer1.Enabled = True
FileCopy("e:\OV2.mdb", "c:\OV2_" & Format(Now, "dd-mm-yyyy_hh-mm-ss") &
".mdb")
Kill("e:\OV2.mdb")
FileCopy("q:\www\beveiligd\software\OV2.mdb", "e:\OV2.mdb")
MsgBox("De upgrade is voltooid")
Me.Close()
Dim oForm As Gelukt
oForm = New Gelukt()
oForm.Show()
oForm = Nothing
End Sub

"Dave Langers" <voornaam@achternaam.nl> schreef in bericht
news:dtf96i$15b6$1@nl-news.euro.net...
> > Wel mijn probleem is, dat dit de eerste keer is dat ik visual basic
gebruik.
> > Voorheen maakte ik gebruik van batch bestanden onder dos.
>
> Zo'n type-conversie is gewoonlijk prima in de help terug te vinden.
>
> Ik gebruik ook geen VBasic, maar google leerde me dat een variantje van
>   ISODateandtime = Format$(Now(), "yyyy-mm-ddTHH:MM:SS")
> zou moeten doen wat jij wil...
> --
>    M.vr.gr.
>    Dave Langers
>    voor mail: vervang voornaam@achternaam.nl