---

Hallo Programmiergemeinde,

ich habe da ein Problem. Und zwar will ich Inhaltsverzeichnisse auslesen und in eine Datei übergeben. Dazu habe ich folgenden VBS-Code (teilweise von dieseyer.de):

Dim WSHShell, fso, shell
Dim oFolders, oFiles
Dim i, Text, Pfad, Eintrag, DateiX, Datei()
set shell = CreateObject("Shell.Application")
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set fso   = WScript.CreateObject("Scripting.FileSystemObject")
Set FileOut = fso.OpenTextFile( "D:\Liste.txt", 2, true) ' Datei zum Schreiben öffnen; 2: immer neu anlegen
Verz = shell.BrowseForFolder(0, "Wählen Sie", 0,"D:\").Title
Pfad = "D:\" & Verz
i = 0
Set oFolders = fso.GetFolder( Pfad ) 
Set oFiles   = oFolders.Files
  For Each DateiX In oFiles
    ReDim Preserve Datei(i)
                   Datei(i) = DateiX.Name
    i = i + 1
  Next

If i > 0 then                                ' wenn es Datei(en) gibt
  For i = 0 to UBound( Datei )
     Eintrag = Datei(i)
     Eintrag = Left(Eintrag, Len(Eintrag) - 4)
     FileOut.WriteLine Chr(34) & Eintrag & Chr(34) & ","
  Next
Else
    MsgBox "Keine Dateien vorhanden."
End If

MsgBox "Dateiliste ist angelegt"

Soweit funktioniert dies auf einem Rechner korrekt, auf einem anderen "vergisst" er die alphabetische Ordnung. Woran kann das liegen?

------------------
Gruß Wilfried
   

[Diese Nachricht wurde von Fan-ME10 am 05. Mrz. 2007 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Wilfried,

Nachdem ich deinen Code mal analysiert habe, suche ich verzweifelt nach einem Sortierbefehl.
Ich schätze mal, dass es bislang Zufall war, wenn die Dateien sortiert in deine Textdatei geschrieben wurden.
Um dies zu garantieren solltest du dein Array Datei() mit Sortier-Algorithmen sortieren.
Ich habe mal etwas gesucht und folgendes gefunden:
http://www.vbarchiv.net/archiv/tipp_details.php?pid=959
http://www.vbarchiv.net/archiv/tipp_details.php?pid=1284

Ich hoffe ich konnte helfen.

------------------
Mfg Daniel

Beim Bill Gates, bei uns .net!
------------------

SolidWorks Programmierung; Schuler Design Automation GmbH

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Daniel,

vielen Dank U's sind unterwegs.

------------------
Gruß Wilfried

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP