Помоготе с FSO

[Unstat]

Вот у меня такая проблема. В references я подключил Microsoft Scripting Runtime пишу в declarations
dim sFSO As New FileSystemObject
dim PathFolder as String
это по нажатию на кнопку
sFSO.CreateFolder (PathFolder)
И потом выводится сообщение об ашипки автоматизации что это может значить?

[Zer]

Зачем через FSO Создавать папки??? MkDir У FSO есть забавная фишка. По крайней мере у меня была - для него максимум свободного места -2Гб.

[Sedge]

Вот у меня такая проблема. В references я подключил Microsoft Scripting Runtime пишу в declarations
dim sFSO As New FileSystemObject
dim PathFolder as String
это по нажатию на кнопку
sFSO.CreateFolder (PathFolder)
И потом выводится сообщение об ашипки автоматизации что это может значить?

Код рабочий. По крайней мере тот, который ты написал.
Так что ошибка, скорее всего, в том, который ты не написал
Давай его сюда.

У FSO есть забавная фишка. По крайней мере у меня была - для него максимум свободного места -2Гб.

Это как? В какой части максимум свободного месте?

[Dzhon]

Код рабочий!

Код: Выделить всё

Private Sub Command1_Click()
Dim fso As New FileSystemObject
Dim strPath As String

strPath = "C:\NewFolderFSO"
fso.CreateFolder strPath
Set fso = Nothing
End Sub


Что у тебя в PathFolder находится?

[Zer]

Я про функция, которая возвращает количество свободного места на диске...

[Dzhon]

Размер диска .TotalSize
Доступно пространства(в байтах) .AvailableSpace . FreeSpace

[Dzhon]

- для него максимум свободного места -2Гб.

Так ты об этом......
Я сразу и не врубился, столько времени прошло....

Ничего подобного:

Код: Выделить всё

Private Sub Command1_Click()
Dim fso As New FileSystemObject
Dim drv As Drive

Set drv = fso.GetDrive(fso.GetDriveName("C:"))

Me.Label1.Caption = FormatNumber(drv.TotalSize / 1024, 0)
Me.Label2.Caption = FormatNumber(drv.FreeSpace / 1024, 0)


End Sub


Попробуй