Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
Jean-Marc Lerch
Anmeldungsdatum: 02.04.2006 Beiträge: 2 Wohnort: Playa del Inglés, Gran Canaria
|
Verfasst am: 13.04.2006, 00:24 Titel: Existierende Datei in Drive mit unbekannter Buchstaben suche |
|
|
Hallo,
Je nach PC's, gibts Drives mit C:, D:, eventuell andere
Buchstaben bis mit Z: (gewisse Buchstaten übersprungen).
Suche einen Trick um eine Datei (z.B. "Result") zu suchen
ob existiert oder nicht, und in welches Drive, da
im Voraus die Buchstaben nicht gelistest sind.
Hat jemand eine Idee ?
Danke für die Infos.
Jean-Marc aus Gran Canaria _________________ QBasic und QB hat meine Präferenz |
|
Nach oben |
|
 |
MisterD

Anmeldungsdatum: 10.09.2004 Beiträge: 3071 Wohnort: bei Darmstadt
|
Verfasst am: 13.04.2006, 01:38 Titel: |
|
|
forensuche? Du musst im prinzip einfach versuchen, auf das laufwerk zu wechseln, wenn dabei ein fehler kommt existierts eben nicht, musst du halt abfangen. _________________ "It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra |
|
Nach oben |
|
 |
Michael Frey

Anmeldungsdatum: 18.12.2004 Beiträge: 2577 Wohnort: Schweiz
|
|
Nach oben |
|
 |
jb

Anmeldungsdatum: 14.01.2005 Beiträge: 2010
|
Verfasst am: 13.04.2006, 15:03 Titel: |
|
|
Da würde ich dir freeBASIC sehr ans Herz legen; schau dir mal die WinAPI-FUNCTION GetDriveType an.
Mit freeBASIC ist es kein Problem, die WindowsAPI einzubinden
Beispielcode:
Code: |
Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" _
(ByVal nDrive As String) As Long
Print "Laufwerk: ";
input Drive$
DriveResult = GetDriveType(Drive$)
Select Case DriveResult
Case 2
Print "Wechseldatentraeger"
Case 3
Print Festplatte
Case 4
Print "Netzlaufwerk"
Case 5
Print "CDROM-Laufwerk"
Case 6
Print "RAM-Laufwerk"
Case Else
print "Laufwerk " + Drive$ + " existiert nicht."
End Select
|
jb _________________ Elektronik und Programmieren |
|
Nach oben |
|
 |
|