Вопрос : Преобразуйте вы видите в скоросшивателе в Шиндошс Ехплорер (взгляде деталей) в электронная таблица Эксел.

По возможности преобразовать вы видите в скоросшивателе в Шиндошс Ехплорер (взгляде деталей) в электронная таблица Эксел?

Hence, электронная таблица Эксел будет иметь список Filenames под названной колонкой, дат

-
- под доработанным датой типом архива column
- под типом размером архива column
- под column

I am размера конечно которому разделите на зоны этот вопрос принадлежит к. Я надеюсь это правильно одним.

Thanks! class=

Ответ : Преобразуйте вы видите в скоросшивателе в Шиндошс Ехплорер (взгляде деталей) в электронная таблица Эксел.

попытка теперь.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

Const FOLDER_PATH = «c:\temp\files»
const OUTPUT_EXCEL_FILE = «c:\temp\output.xlsx»
const SHEET_HEADERS = «имя, доработанная дата, тип, размер»
Const xlExcel7 = 51

На резюме ошибки затем
Установите objExcel = CreateObject («Excel.Application»)
objExcel.Visible = ложно
 
Если (Err.Number <> 0) после этого
    На ошибке переход 0
    Ое применение Wscript.Echo «Эксел.»
    Wscript.Quit
Закончитесь если
На ошибке переход 0

col=1
row=2

'Создайте новый workbook.
objExcel.Workbooks.Add

'Свяжите к рабочий лист.
Установите objSheet = objExcel.ActiveWorkbook.Worksheets (1)

для каждого коллектора в разделении (SHEET_HEADERS, «, ")
	objSheet.Cells (1, col). Значение = коллектор
	col=col+1
затем

Установите objFSO = CreateObject («Scripting.FileSystemObject»)
Установите objFolder = objFSO.GetFolder (FOLDER_PATH)
Для каждого objFile в objFolder.Files
	objSheet.Cells (рядок, 1).Value = objFile.Name
	objSheet.Cells (рядок, 2).Value = objFile.DateLastModified
	objSheet.Cells (рядок, 3).Value = objFile.Type
	objSheet.Cells (рядок, 4).Value = objFile.Size & «KB»
	row=row+1
Затем

objExcel.DisplayAlerts = ложно
objExcel.ActiveWorkbook.SaveAs OUTPUT_EXCEL_FILE, xlExcel7
objExcel.ActiveWorkbook.Close ложное

'Прекращенное Эксел.
objExcel.Application.Quit

Установите objSheet = ничего
Установите objExcel = ничего

Сделанные Wscript.Echo «.»
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us