СуперОбъект
для работы с файловой системой в 1С
СуперОбъект для работы с файловой системой в 1С
"Scripting.FileSystemObject"-интересная вещь,
!!!нет ограничений на размер файла - можно гигабайт
считать в строковую переменную!
Dim fs,f,c
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(NameFile)
text = f.read(999999)
f.Close
d = fs.drives.Count 'всего дисков
Set c = fs.drives("C")
s=c.AvailableSpace
s=c.DriveLetter
s=c.DriveType
s=c.FileSystem
s=c.FreeSpace
s=c.IsReady
s=c.Path
s=c.SerialNumber
s=c.ShareName
s=c.TotalSize
s=c.VolumeName
s=c.RootFolder.Files.Count
s=c.RootFolder.SubFolders.Count
советую попробовать для работы с файловой системой
|