mp3 endung automatisch
31.01.2003 17:32:15
ivan
AN ALLE EXPERTEN !
ich habe einen code der mir nur mp3 dateien einlesen soll.
dann kommt die inputbox fragt welche endung.
ich möchte aber nicht gefragt werden,es soll automatisch eingelesen
werden,weil es klar ist,das nur mp3 endungen eingelesen werden sollen.
ich habe das momentan deaktiviert,aber jetzt werden eben alle endungen
eingelesen und das möchte ich unterbinden.FRAGE:wie kann ich ohne,das die inputbox eingeblendet wird,trotzdem nur mp3 endungen bekommen??
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
'sPattern = InputBox(prompt:="Dateifilter:", Default:="*.mp3")
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
ActiveSheet.Hyperlinks.Add Anchor:=Cells(iRow, 1), _
Address:=sPath & sFile, TextToDisplay:=sFile
sFile = Dir()
LoopDANKE
IVAN