Forums Neueste Beiträge
 

Dateinamen von Diskette lesen

05/02/2008 - 21:50 von Karl Schmitt | Report spam
Hallo,

hier wird (mühsam) an einer Routine gebastelt, die das erste Zeichen von
Excel-Dateien ausliest, die auf einer Diskette (a:\) gespeichert sind.
Vielleicht gibt's hier Hilfe? Vielen Dank jedenfalls und schöne Grüßen von

Karl
 

Lesen sie die antworten

#1 Thomas Gahler
06/02/2008 - 07:49 | Warnen spam
Hallo Karl


hier wird (mühsam) an einer Routine gebastelt, die das erste Zeichen von
Excel-Dateien ausliest, die auf einer Diskette (a:\) gespeichert sind.

Vielleicht gibt's hier Hilfe?


Hilfe gibt es schon, nur die Frage ist ziemlich offen gestellt.

- Meinst du das erste Zeichen des Dateinamens? (dann ist nachstehender Code
geeignet)
- Meinst du das erste Zeichen in einer Zelle in der Excel Arbeitsmappe?


Sub Demo()
Dim strDateiName As String
Dim strErsteZeichen As String

strDateiName = Dir$("A:\*.xls")
strErsteZeichen = strErsteZeichen & Mid$(strDateiName, 1, 1) & vbCr

While Not Len(Trim$(strDateiName)) = 0
strDateiName = Dir$
strErsteZeichen = strErsteZeichen & Mid$(strDateiName, 1, 1) & vbCr
Wend

MsgBox strErsteZeichen
End Sub



Thomas Gahler
MVP für WordVBA
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows XP (SP2), Office XP (SP3)

Ähnliche fragen