Re: Просмотр файлов в папке на винте.

2016-08-10T12:00:46Z

Хочу получить конец файла... Прочитать последние 10 символов.

Dim pos As Long
Call outputStream.Open(mypatch$, "UTF-8")
xxx$=outputStream.Readtext()
pos = outputStream.position -10
outputStream.position = pos
xxx$=outputStream.Readtext()
Msgbox xxx$
Call outputStream.Close

но не работает ((

Просмотр файлов в папке на винте.

2016-08-08T13:15:40Z

В FName будут все имена файлов в папке.

FName = Dir$(pathOUT & {*.*}, 0)  
While FName <> ""
Print FName

fileNum% = Freefile()
Open datapatch$ + "temp.bat" For Output As fileNum%
Do Until Eof(FNum)
Line Input #fileNum%, text$
Print text$
Loop
Close fileNum%

FName = Dir$() 
Wend

Или

datapatch$ =  "C:\XML\OUT\" 
FName = Dir$( datapatch$  & {*.*}, 0)  
While FName <> ""
mypatch$ = datapatch$  & FName
xxy =  Filelen (mypatch$)
fileNm% = Freefile()
    Open FName For Output As fileNm
    Do While Not Eof (fileNm)
        Print "123"
        Line Input # fileNm, mytext
        Print mytext
        Loop
        Close fileNm
        FName = Dir$() 
    Wend

Форум компьютерной помощи — Просмотр файлов в папке на винте.

Re: Просмотр файлов в папке на винте.

Просмотр файлов в папке на винте.