Dim fso As Object, myFile As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set myFile = fso.CreateTextFile("c:\file1.txt")
myFile.WriteLine("This is a test.")
myFile.Close
Ошибка в FileSystemObject
Хочу создать фаил. Набираю этот КОД:
Private Sub Command1_Click()
Dim fso As New FileSystemObject
fso.CreateTextFile "C:\file1.txt"
End Sub
Выдаёт ошибку:
"User-defined type not defined."
А в коде выделяет:
Private Sub Command1_Click()
Dim fso As New FileSystemObject
fso.CreateTextFile "C:\file1.txt"
End Sub
Что делать? Я только новичок, если что SORRY....
Private Sub Command1_Click()
Dim fso As New FileSystemObject
fso.CreateTextFile "C:\file1.txt"
End Sub
Выдаёт ошибку:
"User-defined type not defined."
А в коде выделяет:
Private Sub Command1_Click()
Dim fso As New FileSystemObject
fso.CreateTextFile "C:\file1.txt"
End Sub
Что делать? Я только новичок, если что SORRY....
Вам нужно либо подключить к проекту библиотеку Microsoft Scripting Runtime (файл scrrun.dll), либо использовать "позднее связывание". Пример для последнего способа:
Код:
Спасибо!!! Я воспользовался Microsoft Common Dialog Control 6.0..
Полное объяснение тут
Полное объяснение тут