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:

testen ob Directory leer ist

 
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
_PASCAL_



Anmeldungsdatum: 20.10.2007
Beiträge: 6

BeitragVerfasst am: 20.10.2007, 16:29    Titel: testen ob Directory leer ist Antworten mit Zitat

Hallo...

ich bin recht neu hier, habe allerdings schon etwas an erfahrung mit basic gesammelt.

jetzt wollte ich in einem Programm überprüfen ob das Directory leer aber irgendwie funktioniert mein code als Visual Basic nicht richtig...

Code:
If Dir("C:\Shared") <> "" Then ...


hat jemand eine IDEE
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
nemored



Anmeldungsdatum: 22.02.2007
Beiträge: 4704
Wohnort: ~/

BeitragVerfasst am: 20.10.2007, 16:56    Titel: Antworten mit Zitat

Geht es damit?
Code:
If Dir("C:\Shared\*.*") <> "" Then ...

_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
ytwinky



Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch

BeitragVerfasst am: 20.10.2007, 16:57    Titel: Antworten mit Zitat

Ja..
Für erste Versuche kannst du ja Folgendes benutzen:
Code:
Dim As String c, Verz="C:\Share\*.*"
c=Dir(Verz)
If c="" Then
 Print Verz &" ist leer.."
Else
 Print c
End If
Sleep
End
Wichtig ist hier das *.*
Wenn du wissen möchtest, ob ein Verzeichnis vorhanden ist oder auch nur eine Datei:
hier kucken..
btw: Willkommen an Bord, ähmm im Board^^
Gruß
ytwinky
_________________
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
_PASCAL_



Anmeldungsdatum: 20.10.2007
Beiträge: 6

BeitragVerfasst am: 20.10.2007, 17:37    Titel: Antworten mit Zitat

danke für die schnelle antwort...


aber der code funktioniert leider nicht ganz



ich habe im verzeichnis C:\Shared\ eine datei erstellt namens "Neu Textdokument.txt" aber der code brint

C:\Shared\*.* ist leer..

irgendwie versteht VB nicht dass mit *.* alle Dateien gemeint ist und nicht eine Datei mit dem Namen *.*
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
ytwinky



Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch

BeitragVerfasst am: 20.10.2007, 18:17    Titel: Re: testen ob Directory leer ist Antworten mit Zitat

_PASCAL_ hat Folgendes geschrieben:
aber irgendwie funktioniert mein code als Visual Basic nicht richtig..
und
_PASCAL_ hat Folgendes geschrieben:

irgendwie versteht VB nicht dass mit *.* alle Dateien gemeint ist und nicht eine Datei mit dem Namen *.*
..das habe ich natürlich überlesen..
Du bist hier im FreeBASIC-Teil des Forums..
..zu VB kann ich dir nicht helfen..
Gruß
ytwinky
_________________
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
_PASCAL_



Anmeldungsdatum: 20.10.2007
Beiträge: 6

BeitragVerfasst am: 20.10.2007, 18:55    Titel: Antworten mit Zitat

ahh mist nein FreeBasic is schon richtig ...


ich bin parallel auch mit visual basic am probieren happy
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Jojo
alter Rang


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

BeitragVerfasst am: 20.10.2007, 19:40    Titel: Antworten mit Zitat

ob's leer ist, kannste wie in VB prüfen:
Code:

Dim File as string = dir("*")
If File <> "" Then 'Datei da...

_________________
» 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
_PASCAL_



Anmeldungsdatum: 20.10.2007
Beiträge: 6

BeitragVerfasst am: 20.10.2007, 20:29    Titel: Antworten mit Zitat

super danke so funktioniert grinsen
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
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
Seite 1 von 1

 
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