[vb] Inhoud van map opvragen

[Verwijderd]

Welk object met welke functie kan ik het best gebruiken om de inhoud van een map op te vragen?

Ik heb het Scripting.filesystemobject al gezien. Hiermee kun je met het filesysteem communiceren. De volgende code heb ik geschreven:

code:

Dim fs as FileSystemObject
Dim f as Folder
Dim fil as Files
Dim file as File

set fs = new FileSystemObject
set f = fs.GetFolder("C:...")
set fil = f.Files
set file = fil.item("name.doc")

Het probleem is dat ik hier de filenaam van de file moet weten. En die probeer ik nu juist op te vragen

Weten jullie hier een oplossing voor?

[CyberSnooP]

dir()

[CyberSnooP]

Dir()

[Verwijderd]

met het FSO kan je het prima regelen! Is VEEL beter dan dat oude Dir(), hoewel dat ook wel werkt, maar niet OO is...
in de MSDN staat genoeg info over FileSystemObject. Zie msdn.microsoft.com

maar goed: volgens mij moet File.Name voldoen.

Hier een stukkie copy-n-paste:

Provides access to all the properties of a file.

Remarks
The following code illustrates how to obtain a File object and how to view one of its properties.

[JScript]
function ShowFileInfo(filespec)
{
var fso, f, s;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.GetFile(filespec);
s = f.DateCreated;
return(s);
}
[VBScript]
Function ShowDateCreated(filespec)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(filespec)
ShowDateCreated = f.DateCreated
End Function
Methods
Copy Method | Delete Method | Move Method | OpenAsTextStream Method

Properties
Attributes Property | DateCreated Property | DateLastAccessed Property | DateLastModified Property | Drive Property | Name Property | ParentFolder Property | Path Property | ShortName Property | ShortPath Property | Size Property | Type Property

See Also
Drive Object | Drives Collection | Files Collection | Folder Object | Folders Collection

Verder heeft de FSO ook nog de volgende methodes:

Methods
BuildPath Method | CopyFile Method | CopyFolder Method | CreateFolder Method | CreateTextFile Method | DeleteFile Method | DeleteFolder Method | DriveExists Method | FileExists Method | FolderExists Method | GetAbsolutePathName Method | GetBaseName Method | GetDrive Method | GetDriveName Method | GetExtensionName Method | GetFile Method | GetFileName Method | GetFolder Method | GetParentFolderName Method | GetSpecialFolder Method | GetTempName Method | MoveFile Method | MoveFolder Method | OpenTextFile Method

[Verwijderd]

hier een simpelere versie van hierboven.
maar die wel werkt (tenminste bij mij )
------------------------------------------------------
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("c:\test\erik")
Set fc = f.Files
For Each f1 In fc
s = s & f1.Name
s = s & vbCrLf
Next
MsgBox s
---------------------------------------------------------

[Verwijderd]

om het leven ff iets makkelijker te maken

1) vink bij References Microsoft Scripting (...) aan (ben de precieze naam vergeten...)

2) tik nu in

Dim Fso as New FileSystemObject

Als je nu 'Fso.' intikt werkt Auto complete weer. Dan moet het lukken zou ik zeggen!

[Greyfox]

Op maandag 12 november 2001 11:08 schreef KoenM het volgende:
Als je nu 'Fso.' intikt werkt Auto complete weer. Dan moet het lukken zou ik zeggen!

Intellisense, t.i.

[Verwijderd]

Op maandag 12 november 2001 11:08 schreef KoenM het volgende:
om het leven ff iets makkelijker te maken

1) vink bij References Microsoft Scripting (...) aan (ben de precieze naam vergeten...)

2) tik nu in
[..]

Als je nu 'Fso.' intikt werkt Auto complete weer. Dan moet het lukken zou ik zeggen!

Dit werkt natuurlijk ook wel maar zodra er op een ander systeem die reference niet is kan het programma niet eens opstarten.
Als je een object create dan zal alleen dat deel van het programma niet werken.
Als je bv een Word reference erin hebt zitten en een ander systeem heeft geen words geinstalleerd zal het programma dus nooit opstarten.
snap ie

[Verwijderd]

ok, bedankt. Ik denk dat het 'dir()' wordt. Dat scheelt in iedergeval een lap code.

[Korben]

Op maandag 12 november 2001 13:37 schreef the_tag-man het volgende:
ok, bedankt. Ik denk dat het 'dir()' wordt. Dat scheelt in iedergeval een lap code.

Hehe, of je gebruikt FindFirstFile, FindNextFile en FindClose.