Simpelt søgeside/intranetsøgeside til søgning af lokale filer

du skal i hvert fald rydde op i de gamle point
dannin (3.820 point. Point ude: 5.490)
før der er nogen, der tror på, at de får point ud af dig...

men ellers:
1) lav et vbscript, der læser alle fil navne, og laver en txt-fil med opdelte felter.
2) hent data ind i access eller excel eller konkurrerende produkter, og lav  en søgeformular der.

Der er nu ryddet op

Men jeg har ikke styr på at skrive vbscripts, det er derfor jeg har lagt spørgsmålet under 'opgaver' :-)

det det mellem --- som fx liste.vbs
den prompter bruger for en mappe, og i den mappe laver den en "filliste.txt" der indeholder alle navne på pdf-filer.
Denne liste kan du så importere i et regneark.
Bemærk et stykke nede er linjen
objNewFile.WriteLine("Navn,Vejnavn,Husnr,Type")
det er overskriften, så der kommer en 'header' i regnearket.

---
Function Browse4Folder(strPrompt, intOptions, strRoot)
    Dim objFolder, objFolderItem

    On Error Resume Next

    Set objFolder = objShell.BrowseForFolder(0, strPrompt, intOptions, strRoot)
    If (objFolder Is Nothing) Then
      Wscript.Quit
    End If
    Set objFolderItem = objFolder.Self
    Browse4Folder = objFolderItem.Path
    Set objFolderItem = Nothing
    Set objFolder = Nothing
End Function

On Error Resume Next

Const WINDOW_HANDLE = 0
Const BIF_EDITBOX = &H10
Const BIF_NONEWFOLDER = &H0200
Const BIF_RETURNONLYFSDIRS = &H1

Set objShell = CreateObject("Shell.Application")
Set wshShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

' lad bruger vælge mappen, der skal listes
strPrompt = "Vælg den mappe, der skal listes."
intOptions = BIF_RETURNONLYFSDIRS + BIF_NONEWFOLDER + BIF_EDITBOX
strTargetPath = wshShell.SpecialFolders("MyDocuments")
strFolderPath = Browse4Folder(strPrompt, intOptions, strTargetPath)

Set objNewFile = objFSO.CreateTextFile(strFolderPath & "\filliste.txt", True)
Set objFolder = objFSO.GetFolder(strFolderPath)
Set objColFiles = objFolder.Files
objNewFile.WriteLine("Navn,Vejnavn,Husnr,Type")
For Each file In objColFiles
  Set objFile = objFSO.GetFile(strFolderPath & "\" & file.Name)
  If Lcase(objFSO.GetExtensionName(objFile)) = "pdf" Then
    objNewFile.WriteLine(objFSO.GetBaseName(objFile))
  End If
Next

objNewFile.Close
---