Avatar billede orca Nybegynder
10. november 2001 - 16:16 Der er 11 kommentarer og
1 løsning

Argument problem

Hej. Jeg har lavet et program hvori jeg har et par funktioner, funktion nummer 2 ved navn FileListing har brug for argumenterne Path og FolderID. Altså ser funktionen således ud:
Public Sub ListFiles (Path, FolderID)

Der hvor jeg kalder funktionen bruger jeg følgende kode:
ListFiles (Path & Item.Name & \"\\\", rs(\"Id\"))Såvidt jeg kan forstå burde dette da virke? Men VB melder en Syntax Error fejl... Hvad gør jeg galt?

Mvh Mark
Avatar billede jimmidreng Nybegynder
10. november 2001 - 16:25 #1
Det ser ummidelbart ikke ud til at være en fejl i den kode du har postet.
Prøv evt at definere totalt, med Listfiles (Byval Path as string, byval FolderID as integer)

/Jimmi
Avatar billede orca Nybegynder
10. november 2001 - 16:30 #2
den siger stadigvæk syntax error :(
Avatar billede orca Nybegynder
10. november 2001 - 16:33 #3
Jeg har også prøvet at kalde metoden med sikre data:
ListFiles(\"test\",5)
Men det virker heller ikke :(
Avatar billede jimmidreng Nybegynder
10. november 2001 - 16:34 #4
Det er i din funktion den er gal, ikke i kaldet.
List noget af funktionen.
Avatar billede orca Nybegynder
10. november 2001 - 16:35 #5
Hvilken af dem? :) den jeg kalder fra, eller den jeg kalder?
Avatar billede jimmidreng Nybegynder
10. november 2001 - 16:37 #6
Den du kalder, efter som det heller ikke virker med sikre data.
Avatar billede orca Nybegynder
10. november 2001 - 16:40 #7
Public Sub ListFiles(ByVal Path As String, ByVal FolderID As Integer)
Dim filesys
Dim conn As Connection
Dim rs As Recordset

Set conn = New Connection
With conn
    .CursorLocation = adUseClient
    .ConnectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\\Database.mdb;Mode=ReadWrite;Persist Security Info=False\"
End With
conn.Open

Set filesys = CreateObject(\"Scripting.FileSystemObject\")

If filesys.FolderExists(Path) Then
    Set nFolder = filesys.GetFolder(Path)
    Set nFiles = nFolder.Files
   
        Set rs = New Recordset
        rs.Open \"SELECT * FROM tbl_Files\", conn, 1, 3
   
        For Each Item In nFiles
        rs.AddNew
        rs(\"Name\") = Item.Name
        rs(\"Type\") = Item.Type
        rs(\"Size\") = Item.Size
        rs(\"DateCreated\") = Item.DateCreated
        rs(\"DateLastModified\") = Item.DateLastModified
        rs(\"DateLastAccessed\") = Item.DateLastAccessed
        rs(\"FolderId\") = FolderID
        rs.Update
        Next
       
        rs.Close
        Set rs = Nothing
Else
    MsgBox (\"Could not find the specified folder!\")
End If

conn.Close
Set conn = Nothing
End Sub

Her er hele ListFiles() Funktionen
Avatar billede jimmidreng Nybegynder
10. november 2001 - 16:41 #8
Ok, og så kast lige fejlen med også.
Avatar billede orca Nybegynder
10. november 2001 - 16:42 #9
            ListFiles (\"test\",5) - Syntax Error, i linien hvor jeg kalder funktionen.
Avatar billede jimmidreng Nybegynder
10. november 2001 - 16:50 #10
Nååå for pokker, det er ikke fordi du mangler Call Listfiles(\"test\",5)

eller på en anden facon

ListFiles \"test\",5
Avatar billede orca Nybegynder
10. november 2001 - 17:13 #11
Arghhhh ja... (siger jeg mens jeg knalder mit hovede hårdt ned i bordet og flækker det, hvorefter min 52\" skærm falder ned over mig). Mange tak for svar.
Avatar billede jimmidreng Nybegynder
10. november 2001 - 17:25 #12
He he, det må have gjort ondt :-)
Det var så lidt.
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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