WCM Forum

WCM Forum (http://www.wcm.at/forum/index.php)
-   Software (http://www.wcm.at/forum/forumdisplay.php?f=5)
-   -   Software zum Anzeigen der Netzwerk Verzeichnisstruktur?! (http://www.wcm.at/forum/showthread.php?t=132686)

th0m 28.04.2004 11:05

Software zum Anzeigen der Netzwerk Verzeichnisstruktur?!
 
Hallo jungs,

Hat jemand von euch ein "gscheites" tool womit man die Netzwerkstruktur anzeigen lassen kann und anschließend in ein pdf,tiff,jpg, what ever ausgeben kann?

ich würde so ein tool eben zur schönen strukturierten darstellung der netzwerkstruktur (verzeichnisbaum) benötigen, sodass sich user etwas drunter vorstellen können

ich hab mich sogar schon hingesetzt und ein VB (wäh) script geschrieben aber naja.... VB halt

danke für eure hilfe.... denn google hilft mir nicht mehr ;( :)

lg
thom

nofeatr 28.04.2004 12:37

So ein Tool hätte ich auch gerne

th0m 28.04.2004 14:47

Zitat:

Original geschrieben von nofeatr
So ein Tool hätte ich auch gerne
du hund du ;) :p

naja ich habe etwas halbwegs brauchbares in vb über excel gecodet

'Code beginn
Public Sub AufrufVerzeichnis()
'Generiert das Folder-Objekt für den Verzeichnisbaum
'Verweis auf die 'Microsoft Scripting Runtime' setzen
Dim fso As New FileSystemObject
Dim fld As Folder
Set fld = fso.GetFolder("C:\Test")
Verzeichnisbaum fld
End Sub

Public Sub Verzeichnisbaum(fld As Folder, Optional i As Long = 0)
'Listet alle Unterverzeichnisse und Dateien eines Startverzeichnisses auf
'Der Aufruf erfolgt rekursiv, daher die Aufrüf-Sub
Dim subfld As Folder, Flag As Boolean, fil As File
Flag = True
For Each fil In fld.Files
If Flag Then Worksheets(1).Range("A1").Offset(i, 0) = fil.ParentFolder.path
Worksheets(1).Range("A1").Offset(i, 1) = fil.Name
Worksheets(1).Range("A1").Offset(i, 2) = fil.DateCreated
i = i + 1
Flag = False 'dient dazu, den Pfad nicht jedesmal zu schreiben
Next
For Each subfld In fld.SubFolders
Verzeichnisbaum subfld, i
Next
End Sub
'Ende Code

ich probier das ganze noch zu verbessern..... vorallem wenn du mehr als 65538 ordner besitzt gibt er einen laufzeitfehler aus, weil excel nicht mehr zeilen (integer) zur verfügung hat....

aber falls du/ihr etwas findets bzw. den code verbessern würdets !MELDEN! *gg*

lg
thom

flinx 28.04.2004 16:27

Willst du:
Code:

C:\>tree /?
Zeigt die Ordnerstruktur eines Laufwerks oder Pfads grafisch an.

TREE [Laufwerk:][Pfad] [/F] [/A]

  /F        Zeigt die Namen der Dateien in jedem Ordner an.
  /A        Verwendet den ASCII- statt des erweiterten Zeichensatzes.

?

TOPAZ 28.04.2004 19:25

Networkview
 
www.networkview.com

nofeatr 28.04.2004 19:30

Ist voll cool,das tool

Potassium 28.04.2004 21:18

Zitat:

Original geschrieben von nofeatr
Ist voll cool,das tool
jop.
leider ned free :(

th0m 29.04.2004 01:32

also networkview ist echt nicht schlecht, wie schon erwähnt nicht freeware :)

aber das tool hat mich auf eine idee gebracht.
ich erläutere die idee nicht weiter, denn sie wurde noch nicht bestätigt :)

hat jemand von euch schon den VB vode getestet in excel (ihr müsst es als makro laden.... für die "newbie" meldet euch bei mir wenn ihr probleme dabei habt)

ich arbeite gerade daran das er die subf. in eine neue spalte einträgt :()

ich geb euch bescheid, falls es wem interresiert.

@flinx

sorry, meine schuld. der befehl ist echt fein, kenn ihn selber zu gut *gg*
das problem ist jedoch das "ms-dos" pseudo nicht konform mit den windows ordner namen fungiert. z.b. immer ÄÄÄÄ davor usw....

tree ist fein für kleine ordner aber.... naja ich habe hier knapp 250000 ordner *gg*

aber ich denke ich werde es mit linux umsetzen, hat hier schon wer erfahrung?

flinx 29.04.2004 10:29

Zitat:

sorry, meine schuld. der befehl ist echt fein, kenn ihn selber zu gut *gg*
das problem ist jedoch das "ms-dos" pseudo nicht konform mit den windows ordner namen fungiert. z.b. immer ÄÄÄÄ davor usw....
:confused: tree /a hilft auch nicht? (ev. + Wordmakro suchen&ersetzen)

Zitat:

ich arbeite gerade daran das er die subf. in eine neue spalte einträgt )
So?
Code:

Public Sub Verzeichnisbaum(fld As Folder, Optional i As Long = 1, Optional j As Long = 1)
'Listet alle Unterverzeichnisse und Dateien eines Startverzeichnisses auf
'Der Aufruf erfolgt rekursiv, daher die Aufrüf-Sub
Dim subfld As Folder, Flag As Boolean, fil As File
Flag = True
For Each fil In fld.Files
If Flag Then Worksheets(1).Cells(i, j).Value = fil.ParentFolder.Path
Worksheets(1).Cells(i, j + 1).Value = fil.Name
Worksheets(1).Cells(i, j + 2).Value = fil.DateCreated
i = i + 1
Flag = False 'dient dazu, den Pfad nicht jedesmal zu schreiben
Next
For Each subfld In fld.SubFolders
j = j + 1
Verzeichnisbaum subfld, i, j
Next
j = j - 1
End Sub
'Ende Code



Alle Zeitangaben in WEZ +2. Es ist jetzt 19:44 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
© 2009 FSL Verlag