' Beispiel mit Pfadumwandlung ' Quelle: http://msdn.microsoft.com/library/en-us/win9x/95func_046g.asp ' $INCLUDE: 'qb.bi' DIM dosIntEin AS RegTypeX, dosIntAus AS RegTypeX DIM pufLang AS STRING * 300, pufKurz AS STRING * 128 PRINT "Bitte ein Dateiname im Longformat eingeben:" LINE INPUT "Datei:", dl$ pufLang = dl$ + CHR$(0) dosIntEin.ax = &H7160 dosIntEin.cx = &H8001 dosIntEin.ds = VARSEG(pufLang) dosIntEin.si = VARPTR(pufLang) dosIntEin.es = VARSEG(pufKurz) dosIntEin.di = VARPTR(pufKurz) CALL INTERRUPTX(&H21, dosIntEin, dosIntAus) IF dosIntAus.flags AND 1 THEN PRINT "Fehler beim Umwandeln. Code="; dosIntAus.ax ELSE p% = INSTR(pufKurz, CHR$(0)) IF p% > 0 THEN dk$ = LEFT$(pufKurz, p% - 1) ELSE dk$ = pufKurz END IF PRINT "Der kurze Pfad lautet:" PRINT dk$ OPEN dk$ FOR INPUT AS 1 WHILE NOT EOF(1) LINE INPUT #1, z$ PRINT z$ WEND CLOSE 1 END IF