/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Tjek størelsen på en file man vil hente
Fra : Henrik Cichosz


Dato : 20-11-02 17:28

jeg har et lilleprogram der kan hente en given file på en http adresse
og kunne godt tænke mig at den kunne tjekke størelsen på filen inden man
hentede den så man kunne se og filen havde ændret sig
kan man det og hvordan ??
mvh Henrik Cichosz


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.419 / Virus Database: 235 - Release Date: 13-11-2002



 
 
Bjarke Walling Peter~ (20-11-2002)
Kommentar
Fra : Bjarke Walling Peter~


Dato : 20-11-02 19:28

Hej Henrik.

Du kan f.eks. gøre således (går ud fra du har placeret en Microsoft Internet
Transfer Control på din form!) ... indsæt denne kode i din form:

Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case icError
Inet1.Cancel
MsgBox "Der opstod en uventet fejl!", vbOKOnly, "Fejl"
Case icResponseCompleted
Dim ContentType As String
Dim LastModified As String
Dim Size As Long
ContentType = Inet1.GetHeader("Content-Type")
LastModified = Inet1.GetHeader("Last-modified")
Size = Inet1.GetHeader("Content-Length")
Inet1.Cancel

' Nu hvor du har ContentType, LastModified og Size
' kan du så bruge dem her til hvad du måtte ønske:

MsgBox ContentType, vbOKOnly, "Content type"
MsgBox LastModified, vbOKOnly, "Sidst ændret"
MsgBox Size, vbOKOnly, "Størrelse"

End Select
End Sub


.... og så blot skrive:

If Not Inet1.StillExecuting Then
Inet1.Execute URL, "HEAD"
End If

.... hvor URL indeholder url'en på filen selvfølgelig. Så vil den hente
filens headere hjem, som du så får ud i StateChanged-eventen.

Håber du kan bruge det.

Mvh. Bjarke

Henrik Cichosz skrev:
> jeg har et lilleprogram der kan hente en given file på en http adresse
> og kunne godt tænke mig at den kunne tjekke størelsen på filen inden man
> hentede den så man kunne se og filen havde ændret sig
> kan man det og hvordan ??
> mvh Henrik Cichosz



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste