Как определить даты изменения файла?

Левон

Пробовал через OLE объект но не получается его вызвать из сапа (в экселе работает).

Пробовал так:

Code:

  DATA: h_vba   TYPE ole2_object.
  CREATE OBJECT h_vba 'VBA'.

  CALL METHOD OF h_vba 'FileSystem.FileDateTime' = lv_str
       EXPORTING
        #1 = 'c:\scripts\doc1.doc'.

Code:

  DATA: h_vba   TYPE ole2_object.
  CREATE OBJECT h_vba 'FILESYSTEM'.

  CALL METHOD OF h_vba 'FileDateTime' = lv_str
       EXPORTING
        #1 = 'c:\scripts\doc1.doc'.

в обоих случаях subrc = 2...

Aleqs

CALL METHOD CL_GUI_FRONTEND_SERVICES=>DIRECTORY_LIST_FILES

Левон

Это только файлы дает, без указания даты изменения.

Удав

А вот этот пример из справки по Visual Basic не поможет?

Code:

File Object
               

Description

Provides access to all the properties of a file.

Remarks

The following code illustrates how to obtain a File object and how to view one of its properties.

Sub ShowFileInfo(filespec)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = f.DateCreated

End Sub

Левон

а как это в абап переделать?

Удав

1.В транзакции SOLE проаисываешь объект Scripting.FileSystemObject (в качестве примера можешь взять запись VISIO.APPLICATION
2.Пишешь программу:

Code:

REPORT  zfilesystemobject.

TYPE-POOLS: ole2.
PARAMETERS: p_file(80) DEFAULT 'C:\AUTOEXEC.BAT'.

DATA: fs TYPE ole2_object,
      file TYPE ole2_object,
      attr(10).

END-OF-SELECTION.
  CREATE OBJECT fs 'SCRIPTING.FILESYSTEMOBJECT'.

  IF sy-subrc <> 0.
    FREE OBJECT fs.
    WRITE: / 'error create File system object!'.
    EXIT.
  ENDIF.

  CALL METHOD OF fs 'GETFILE' = file
    EXPORTING
      #1 = p_file.

  IF sy-subrc <> 0.
    FREE OBJECT file.
    FREE OBJECT fs.
    WRITE: / 'error open file:', p_file.
    EXIT.
  ENDIF.

  GET PROPERTY OF file 'DateLastModified'  = attr.

  IF sy-subrc <> 0.
    WRITE: 'Параметра', 'DateLastModified', 'не существует!'.
  ELSE.
    WRITE: / 'DateLastModified', '=', attr.
  ENDIF.
  FREE OBJECT file.
  FREE OBJECT fs.

Левон

Спасибо, заработало!
Только в SOLE я ничего не прописывал и до меня вроде как тоже! А когда там надо прописывать и что? Это чтоб создавать ОЛЕ объекты в программе?

и еще: на мсдн написано что этот мето возвращает как дату, так и время. Но че то время из него вытянуть не удается. И вообще в FILESYSTEMOBJECT че-то я времени не нашел:(

Удав

вот зачем.

Правда к версии 4.7 и выше это уже похоже не относится

По крайней мере транзакций SOLI и SOLO я не нашел...

Удав

Левон написал:

Но че то время из него вытянуть не удается. И вообще в FILESYSTEMOBJECT че-то я времени не нашел:(

Чтобы найти время, переменную attr нужно объявить не 10, а 20 символов

Левон

Блин, туплю с размерностью!
Спасибо!
С SOLE ща буду разбираться! спасибо!

Aleqs

CL_GUI_FRONTEND_SERVICES=>DIRECTORY_LIST_FILES выдает кучу информации о файлах из директории, в том числе CreateDate, CreateTime, WriteDate, WriteTime, AccessDate, AccessTime. В таблице FILE_INFO.

Правила форума

Как определить даты изменения файла?

Кто сейчас на конференции