
PART I
all NoktaOkuma()
Sub NoktaOkuma()
‘ Aktarılacak dosyanın yeri belirtilir
Dim strFilter, strFileName
strFilter = “Text File (*.txt)
*.txt
All Files (*.*)
“strFileName = Rhino.OpenFileName(“Noktaların bulunduğu dosyanın yerini belirtiniz”, strFilter)
If IsNull(strFileName) Then Exit Sub
‘ Dosya sistem cismi
Dim objFSO, objFile
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
‘ Metin dosyasını açınız
On Error Resume Next
Set objFile = objFSO.OpenTextFile(strFileName, 1)
If Err Then
MsgBox Err.Description
…..