Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Verzeichnisbaum mit Dateien anzeigen
Gehe zu Seite 1, 2  Weiter
 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Andy19312



Anmeldungsdatum: 22.10.2005
Beiträge: 428

BeitragVerfasst am: 31.10.2007, 20:59    Titel: Verzeichnisbaum mit Dateien anzeigen Antworten mit Zitat

Hallo zusammen,
hätte ihr ein Lösung, wie ich ein Verzeichnisbaum einer Festplatte erstelle, mit einer Dateiübersicht?
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
csde_rats



Anmeldungsdatum: 07.01.2007
Beiträge: 2292
Wohnort: Zwischen Sessel und Tastatur

BeitragVerfasst am: 31.10.2007, 21:06    Titel: Antworten mit Zitat

Code:
Shell ("tree " + Verzeichniss$)

_________________
If hilfreicher_Beitrag then klick(location.here)

Klick
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Andy19312



Anmeldungsdatum: 22.10.2005
Beiträge: 428

BeitragVerfasst am: 31.10.2007, 21:32    Titel: Antworten mit Zitat

ich brauch eine variabelel zur weiteren verarbeitung, so dass ich es als string speichern kann
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
csde_rats



Anmeldungsdatum: 07.01.2007
Beiträge: 2292
Wohnort: Zwischen Sessel und Tastatur

BeitragVerfasst am: 31.10.2007, 21:46    Titel: Antworten mit Zitat

mit dem Kopf durch die Mauer wollen
Code:

shell ("tree " + verz$ + " > " + datei$)

open datei$ for binary as #1
stri$=space(lof(1))
get #1,, stri$
close #1

_________________
If hilfreicher_Beitrag then klick(location.here)

Klick
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Andy19312



Anmeldungsdatum: 22.10.2005
Beiträge: 428

BeitragVerfasst am: 31.10.2007, 21:48    Titel: Antworten mit Zitat

in freebasic kommen nur fehler, sorry
gibt es noch eine möglichkeit?
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
PMedia



Anmeldungsdatum: 14.08.2006
Beiträge: 2847

BeitragVerfasst am: 31.10.2007, 21:57    Titel: Antworten mit Zitat

Wenn du in FreeBASIC codest, warum packst du es in das QBasic-Forum?
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Sebastian
Administrator


Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland

BeitragVerfasst am: 31.10.2007, 22:07    Titel: Antworten mit Zitat

Thread ins FreeBASIC-Unterforum verschoben.
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
PMedia



Anmeldungsdatum: 14.08.2006
Beiträge: 2847

BeitragVerfasst am: 31.10.2007, 22:08    Titel: Antworten mit Zitat

Code:

ReDim Tree(0 to 65536) As String
Dim i as integer

open pipe "tree " + path For Input As #1
Do
 input #1, Tree(i)
 i+=1
Loop Until Eof(1)
Close #1
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Andy19312



Anmeldungsdatum: 22.10.2005
Beiträge: 428

BeitragVerfasst am: 31.10.2007, 22:25    Titel: Antworten mit Zitat

funktioniert leider nicht
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
ytwinky



Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch

BeitragVerfasst am: 31.10.2007, 22:39    Titel: Antworten mit Zitat

Was funktioniert denn bei dir?
_________________
v1ctor hat Folgendes geschrieben:
Yeah, i like INPUT$(n) as much as PRINT USING..
..also ungefähr so, wie ich GOTO..
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Andy19312



Anmeldungsdatum: 22.10.2005
Beiträge: 428

BeitragVerfasst am: 31.10.2007, 22:48    Titel: Antworten mit Zitat

überhaupt nichts:
also mein Vorhaben sieht folgendermasen aus:
Verzeichnisstruktur erstellen
In jedem Verzeichnis nach Dateien suchen.

Anschliessend mir eine Liste erstellen.


Kann doch nicht so schwer sein oder
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
ytwinky



Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch

BeitragVerfasst am: 31.10.2007, 22:53    Titel: Antworten mit Zitat

Probier's doch mal mit Shell "Dir /s"..
weitere Parameter des Dir-Kommandos erhältst du in der Befehls-Konsole mit "Dir /?"
_________________
v1ctor hat Folgendes geschrieben:
Yeah, i like INPUT$(n) as much as PRINT USING..
..also ungefähr so, wie ich GOTO..
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Andy19312



Anmeldungsdatum: 22.10.2005
Beiträge: 428

BeitragVerfasst am: 31.10.2007, 22:59    Titel: Antworten mit Zitat

funktioniert hervorragend....
Nur wie kann ich nun jede datei, die er nacheinander findet binär einlesen
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
ytwinky



Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch

BeitragVerfasst am: 31.10.2007, 23:01    Titel: Antworten mit Zitat

http://ytwinky.freebasic.de/freebasic/allesladen.bas
_________________
v1ctor hat Folgendes geschrieben:
Yeah, i like INPUT$(n) as much as PRINT USING..
..also ungefähr so, wie ich GOTO..
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Jojo
alter Rang


Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte

BeitragVerfasst am: 31.10.2007, 23:18    Titel: Antworten mit Zitat

Tree gibt's bei Win98 nicht, wenn ich mich recht erinnere... Bei den NT-Systemen blieb es wohl im sortiment. auch mit den DIR-Switches muss man arg aufpassen, da die auch z.T. verschieden sind und in der dosbox z.B. fast gar nicht unterstützt werden. also am besten bordmittel verwenden...
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
ytwinky



Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch

BeitragVerfasst am: 31.10.2007, 23:36    Titel: Antworten mit Zitat

Vllt könnte er ja auch hiermit was anfangen:
http://forum.qbasic.at/viewtopic.php?t=3393
..aber wenn er nicht genau sagt, was er hat und was er will,
kann ich auch nur raten grinsen
_________________
v1ctor hat Folgendes geschrieben:
Yeah, i like INPUT$(n) as much as PRINT USING..
..also ungefähr so, wie ich GOTO..
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
AndT



Anmeldungsdatum: 02.04.2007
Beiträge: 481

BeitragVerfasst am: 01.11.2007, 07:53    Titel: Antworten mit Zitat

Um die Liste gleich in eine datei zu bekommen einfach
Code:
> liste.txt
dranhängen zwinkern
Also z.B
Code:
shell "dir C:\ /s > liste.txt"

_________________
Bis irgendwann... grinsen
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Jojo
alter Rang


Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte

BeitragVerfasst am: 01.11.2007, 13:57    Titel: Antworten mit Zitat

Lieber AndT, hast du schonmal den Thread durchgeschaut? Die Lösung wurde schon genannt! Und PMedia hat eine viel elegantere Lösung gezeigt, nämlich Open PIPE... Kopf schütteln
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
PMedia



Anmeldungsdatum: 14.08.2006
Beiträge: 2847

BeitragVerfasst am: 01.11.2007, 14:47    Titel: Antworten mit Zitat

PMedia bedankt sich für diese Lobsprechung lächeln
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
ytwinky



Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch

BeitragVerfasst am: 01.11.2007, 17:53    Titel: Antworten mit Zitat

PMedia ist ein alter Egoist^^
Ein Lob muß Jojo dafür erhalten, daß er so ruhig geblieben ist grinsen
Andere(ich mglw auch) hätten die Tastatur dafür arg strapaziert &%?!''*~§$
Schade, daß wir keinen RTFM-Smilie haben..
_________________
v1ctor hat Folgendes geschrieben:
Yeah, i like INPUT$(n) as much as PRINT USING..
..also ungefähr so, wie ich GOTO..
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. Alle Zeiten sind GMT + 1 Stunde
Gehe zu Seite 1, 2  Weiter
Seite 1 von 2

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz