| |
|
|
| | Народ. Подскажите, может ли акс или с помощью акса как-то просканировать папку с файлами и занести в базу имена этих файлов? | |
| |
| |
| |
 160 Кб. |
|
| | Попробуй это | |
| |
| |
| |
|
|
| | Охренеть.  Вижу крокозяблы.
Кстати что-то файл не прикрепляется.
Час, если не трудно скинь на onsa68@mail.ru | |
| |
| |
| |
|
|
| | Это мдб-шный файл. Сохрани его через "Сохранить как..." :) | |
| |
| |
| |
|
|
| | И как. Как ни крути, сохранить как - тип файла HTML и никак иначе. Что-то не догоняю. Расширение сменить. А на что. | |
| |
| |
|
|
| |
|
|
| | А чем вас функция Dir не устраивает? | |
| |
| |
| |
|
|
| | Функция DIR всем устраивает, но вот порядок ее применения. Показывает только первый файл, а остальные как-то.. Рекордсетом что ли по папке идти, или что там есть? | |
| |
| |
| |
|
|
| | Public Sub dirdir()
Dim st
st = Dir("C:\WINDOWS\*.INI")
Do While Len(st) > 0
Debug.Print st
st = Dir$
Loop
End Sub | |
| |
| |
| |
|
|
| | Из справочника по VBS
Function ShowFolderListTest
Dim fso, f, f1, fc, s, folderspec
folderspec="[типо, путь]"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
If fs.Count > 0 Then
For Each f1 in fc
Debug.Print f1.name
Next
End if
End Function
|
| |
| |
| |
| |
|
|
| | Гы. Спасибо. Даже очипятку нашел
If fc.Count > 0 Then
Видит, показывает.  | |
| |
| |
