"We are back" « oc.at

VBS GetFiles Function als Array ausgeben

Forum Index > Software > Coding Stuff

EVERMIND 16.02.2005 - 13:10 2533 3
Posts

evrmnd

OC Addicted
Registered: Nov 2002
Location:
Posts: 3534
16.02.2005 - 13:10
Hi,

Wie der Titel schon sagt will ich das als Array ausgeben.

So hab ichs jetzt

'------------------
' Function Get Files
'------------------
Dim l
Function GetFiles(ppath)

Set wsh = Wscript.CreateObject("Wscript.Shell")
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set fo = fso.GetFolder( wsh.ExpandEnvironmentStrings(ppath) )

Set fc = fo.Files
For Each l in fc
Wscript.echo l
Next

End Function
'------------------

allerdings schreibt er es dann nur als text raus... is ja klar...
ich hätte aber gerne das ich dann alle files in eine array eingetragen sind..

Kennt jemand die lösung?
Danke!
lg

mat

Administrator
Legends never die
Avatar
Registered: Aug 2003
Location: nö
Posts: 25953
16.02.2005 - 16:18
Code:
Function GetFiles(ppath)
Dim l,a,i

Set wshell = WScript.CreateObject("WScript.Shell")

Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set fo = fso.GetFolder(wshell.ExpandEnvironmentStrings(ppath))

Set fc = fo.Files

ReDim a(fc.Count)

i = 1
For Each l in fc
 a(i) = l

 i = i+1
Next

GetFiles = a
End Function

aTest = GetFiles("C:\")
WScript.echo aTest(8)

evrmnd

OC Addicted
Registered: Nov 2002
Location:
Posts: 3534
16.02.2005 - 18:09
Wieder mal danke mat :)
Hast du vielleicht ne gute vbs page?

Danke!
lg

mat

Administrator
Legends never die
Avatar
Registered: Aug 2003
Location: nö
Posts: 25953
17.02.2005 - 01:53
http://msdn.microsoft.com oder google. spezielle tutorial pages udg kenne ich keine.
All times are GMT +1 hour. The time now is 22:46.
Anmeldung

Noch keinen Account?
Jetzt registrieren.

New Posts
Today's Active Threads
Preisanstieg bei Arbeitsspeicher, SSDs und Grafikkarten
22:13 FX Freak
Klima, oder das Wetter im Schnitt über 30 Jahre
21:27 Viper780
Der Tastatur Thread
21:19 Viper780
Apple - die Speicher - Preiserhöhung ist da
21:18 FX Freak
Verkauf auf Willhaben - eure Meinung dazu
21:17 max
wwdc26 /MacOS 27 - Golden Gate - und alle anderen OS27
19:59 fresserettich
Latest News
Eine letzte Chance für das WEP?
21.09. mat
overclockers.at is back!
25.01. mat
User of the Month: disposableHero
28.10. WONDERMIKE
Neues Unterforum: Artificial Intelligence
10.08. WONDERMIKE
Erweiterung unseres Suche / Biete / Tausche Markplatzes: Alles außer Hardware!
07.04. WONDERMIKE
Archives: News Articles
Links

Partners:
» Gamers.at
» Notebookcheck.com

L E F T B A R
Kontakt | Unser Forum | Über overclockers.at | Impressum | Datenschutz
© all rights reserved by overclockers.at 2000-2026
overclockers.at v4.thecommunity based on vBulletin 2.2.5
Page generated in 0.029 seconds (SQL-time: 0.026 seconds, 25 queries)
sponsored by www.nessus.at