Notifikationer

Markér alle som læst Log ud

inkognito1 Nybegynder

19. juni 2002 - 16:39 Der er 16 kommentarer og
1 løsning

Visual basic til ASP

Har fået en til at lave denne count at TXT filer:

Kan en omkrive den så jeg kan køre den direkte i en ASP fil ??

Dim FSO As Object, FLD As Object, FILE, AntalFiler As Integer
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FLD = FSO.GetFolder("C:\Windows")
For Each FILE In FLD.Files
If LCase(Right(FILE.Name, 4)) = LCase(".txt") Then
AntalFiler = AntalFiler + 1
End If
Next FILE
If AntalFiler > 25 Then MsgBox "Mappen indeholder over 25 filer!"

Synes godt om

medions Nybegynder

19. juni 2002 - 16:40 #1

Det gør den allerede!

Dim FSO As Object, FLD As Object, FILE, AntalFiler As Integer
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FLD = FSO.GetFolder("C:Windows")
For Each FILE In FLD.Files
If LCase(Right(FILE.Name, 4)) = LCase(".txt") Then
AntalFiler = AntalFiler + 1
End If
Next FILE
If AntalFiler > 25 Then Response.Write "Mappen indeholder over 25 filer!"

//>Rune

Synes godt om

medions Nybegynder

19. juni 2002 - 16:42 #2

Men hvis du er i tvivl, så kan du bruge dette script:

<%
Dim fs, FileName, Text, Count, ReadFile, WriteFile, Logtomme, a
Set fs = CreateObject("Scripting.FileSystemObject")
FileName = Server.MapPath("counter.txt")
Set ReadFile = fs.OpenTextFile(FileName, 1, False)
Text = ReadFile.ReadLine
Count = Text+1
Set WriteFile = fs.OpenTextFile(FileName, 2, True)
WriteFile.WriteLine(Count)
%>

//>Rune

Synes godt om

inkognito1 Nybegynder

19. juni 2002 - 16:42 #3

Dim FSO As Object, FLD As Object, FILE, AntalFiler As Integer
--------^

Denne fejl kommer

Synes godt om

Slettet bruger

19. juni 2002 - 16:43 #4

Medions:

Er du nu sikker? ASP er ikke typestærkt, så du kan ikke lave: Dim variabel As TypeName

Dim FSO, FLD, FILE, AntalFiler

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

Og så kan du muligvis ikke bruge "Next FILE". Mener du skal "nøjes" med "Next".

Synes godt om

medions Nybegynder

19. juni 2002 - 16:44 #5

Hov, undskyld, jeg havde ik' lige set den defination!

//>Rune

Synes godt om

inkognito1 Nybegynder

19. juni 2002 - 16:47 #6

Microsoft VBScript runtime error '800a0046'

Permission denied

/counter/Default.asp, line 38

Synes godt om

medions Nybegynder

19. juni 2002 - 16:50 #7

Det er fordi du ikke har skriverettigheder på det valgte directory på serveren!

//>Rune

Synes godt om

inkognito1 Nybegynder

19. juni 2002 - 16:52 #8

Er det maskinen der skal have rettighed ???

Hvad hedder maskinen ?? i Win2000

Synes godt om

medions Nybegynder

19. juni 2002 - 16:55 #9

Nej, det er mappen! -Højreklik på mappen, klik på Propertis -> Security -> og vink Read og Write af...

IIS

//>Rune

Synes godt om

kimiwan Nybegynder

19. juni 2002 - 17:01 #10

det er IUSR_MACHINENAME, der skal have rettigheder.

Synes godt om

inkognito1 Nybegynder

19. juni 2002 - 17:08 #11

Den vil ikke finde path fordi det er på en anden maskine ... på netværket ... kan man gøre noegt ved et ?

Synes godt om

medions Nybegynder

19. juni 2002 - 17:11 #12

Scrpitet SKAL ligge på den maskine, som filen oprettes på!

//>Rune

Synes godt om

inkognito1 Nybegynder

19. juni 2002 - 17:14 #13

Jeg bruger denne der virker fint lokalt:

<%
Dim FSO, FLD, FILE, AntalFiler
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FLD = FSO.GetFolder("c:\filer\")
For Each FILE In FLD.Files
If LCase(Right(FILE.Name, 4)) = LCase(".txt") Then
AntalFiler = AntalFiler + 1
End If
Next
%>

Der i alt = <%=antalfiler%>

Synes godt om

inkognito1 Nybegynder

19. juni 2002 - 17:14 #14

Så jeg gemmer ikke noget i en fil ...

Synes godt om

medions Nybegynder

19. juni 2002 - 17:16 #15

Hvis det er du vil bruge en tæller, vil jeg nok foretrække du brugte denne:

<%
Dim fs, FileName, Text, Count, ReadFile, WriteFile, Logtomme, a
Set fs = CreateObject("Scripting.FileSystemObject")
FileName = Server.MapPath("counter.txt")
Set ReadFile = fs.OpenTextFile(FileName, 1, False)
Text = ReadFile.ReadLine
Count = Text+1
Set WriteFile = fs.OpenTextFile(FileName, 2, True)
WriteFile.WriteLine(Count)
%>

Den virker!

//>Rune

Synes godt om

inkognito1 Nybegynder

19. juni 2002 - 18:47 #16

takker for jeres tid ..

Synes godt om

medions Nybegynder

19. juni 2002 - 18:48 #17

Anytime!
Thx 4 Poinz

//>Rune

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS