filenavne kopieret til excel

kan du ikke bare køre kommandoen "dir >filnavne.txt" (uden "9) og så redigerer filnavne.txt til f.eks. en komma separeret liste der kan importeres til excel

(uden "9) = (uden ")

det kunne jeg men jeg vil helst have et .vbs script

Public Sub HentFilnavne()
On Error GoTo slut
    Dim strFilNavn() As Variant, Sti As String, NO As Long
    ReDim Preserve strFilNavn(NO)
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        Sti = .SelectedItems(1)
    End With

    strFilNavn(NO) = Dir(Sti & "\*.*")  ' Hent den første filnavn.

    Cells(NO + 2, 1) = strFilNavn(NO)    ' uden sti
    '  Cells(NO + 2, 1) = sti & strFilNavn(NO) ' med sti
    Do While strFilNavn(NO) <> ""  ' Start løkken
        If strFilNavn(NO) <> "." And strFilNavn(NO) <> ".." Then
            Cells(NO + 2, 1) = strFilNavn(NO)    ' uden sti
            '  Cells(NO + 2, 1) = sti & strFilNavn(NO), med sti
            NO = NO + 1
            ReDim Preserve strFilNavn(NO)

        End If
        strFilNavn(NO) = Dir    ' Hent næste filnavn.
    Loop
slut:
   
End Sub

Jeg mangler et script der kan kopiere alle filnavne i en mappe og kopiere dem til Excel. Jeg kan ikke rigtig se at ovenstående gør det. Eller tager jeg fejl?

Det er en makro,som skal køres i excel, som indlæser dem

fint nok...men det var en vbs fil jeg gerne ville have...

Har løst problemet:

Option Explicit

Const path = "sti til mappe"

Dim Text, Title, oFile
Dim fso, oFolder, oFiles, wsh          ' Object variables

Text = ""
Title = ""

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

' Create FileSystemObject object to access the file system.
Set fso = CreateObject("Scripting.FileSystemObject")

' Get Folder object.
Set oFolder = fso.GetFolder(wsh.ExpandEnvironmentStrings(path)) 

'Text = Text & oFolder & vbCrLf & vbCrLf
Text = Text & "" & vbTab & vbTab & "" & vbCrLf
Set oFiles = oFolder.Files        ' Get Files collection.

For Each oFile In oFiles          ' All files
    Text = Text & oFile.Name & vbTab
    'Text = Text & FormatNumber(oFile.Size, 0) & vbTab
    ' List the short filename (but comment out for VBScript 3.1)
    'Text = Text & oFile.ShortName & vbCrLf
    Text = Text & vbCrLf
Next






'Open up the path to save the information into a text file
Dim Stuff, myFSO, WriteStuff, dateStamp
dateStamp = Date()

'Write information to Text File
Stuff = Text

Set myFSO = CreateObject("Scripting.FileSystemObject")
Set WriteStuff = myFSO.OpenTextFile("textfile.txt", 8, True)
WriteStuff.WriteLine(Stuff)
WriteStuff.Close
SET WriteStuff = NOTHING
SET myFSO = NOTHING