Du trenger ikke å skrive tusen linjer med kode for å la brukerne laste opp filer til din server.VB.NET har en innebygd " FileUpload " kontroll som automatiserer oppgaven. Denne kontrollen består av en "Browse "-knappen som lar brukeren velge filer som skal lastes opp og en tekstboks som viser den valgte filen . Alt du trenger å gjøre er å dra kontrollen til din webside og legge til et par linjer med VB.NET kode søknaden din . Instruksjoner
en
åpne en av dine VB.NET Web-prosjekter og finne prosjektets oppstart form i Solution Explorer .
2
Dobbeltklikk på at skjemaet og klikk deretter på " Design "-knappen . Visual Studios utformingen vinduet og viser skjemaet.
3
Åpne verktøykassen og dra en " Button" kontroll på skjemaet . Bruk vinduet Egenskaper for å endre knappens navn til " ButtonUpload " og dens tekst til "Last opp ".
4
Tilbake til verktøykassen . Dra en "Label " -kontroll og en " FileUpload " kontrollen til skjemaet . Bruk vinduet Egenskaper for å endre etiketten navn til " LabelMessage . "
5
Dobbeltklikk på knappen du plassert på skjemaet . Koden åpnes og viser koden for knappen er " klikk "-metoden . Erstatte denne metoden med følgende ett : en
Beskyttet Sub ButtonUpload_Click ( ByVal avsenderen som objekt , ByVal e Som System.EventArgs ) Håndtak Button1.Click
p Hvis ( FileUpload1.HasFile ) Så
Dim filnavn As String = FileUpload1.FileName
Dim Lagre for As String = " C \\ Opplastinger \\"
Lagre for + = fileName
FileUpload1.SaveAs ( Lagre for )
LabelMessage.Text = "Last opp var vellykket "
Else
LabelMessage.Text = " velg en fil å laste opp "
End If
End Sub
den første linjen sjekker om brukeren har valgt en fil å laste opp . I så fall utfører kodeblokken etter den første linjen . Den " Lagre for " variable holder banen til plasseringen på serveren der du vil lagre opplastede filer. At banen er " C: \\ Opplastinger \\" i dette eksemplet. Endre denne banen navn til den faktiske banen på serveren der du vil lagre opplastinger. De " FileUpLoad1.SaveAs " statement laster opp filen . Den neste setningen informerer brukeren av en vellykket opplasting ved å endre etiketten teksten til "Last opp var vellykket. " Hvis en bruker ikke klarer å velge en fil før du klikker på "Last opp "-knappen , setter kode på etiketten teksten til " Velg en fil å laste opp . "
6
Trykk " F5 " for å vise form i nettleseren din. Klikk på "Last opp "-knappen . En filutvalgsvindu åpner og lar deg velge en fil fra harddisken din . Dobbeltklikk på en fil , og klikk deretter på "Last opp ". VB.NET laster opp filen til plasseringen du angav i koden .