1 Тема от admin

  • admin
  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2010-04-07
  • Сообщений: 1,227
  • Репутация : 0

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

В  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

Поделиться

2 Ответ от admin

  • admin
  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2010-04-07
  • Сообщений: 1,227
  • Репутация : 0

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

Хочу получить конец файла... Прочитать последние 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

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

Поделиться