10. november 2001 - 16:16Der 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?
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)
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
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.
He he, det må have gjort ondt :-) Det var så lidt.
Synes godt om
Ny brugerNybegynder
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.