Your Products have been synced, click here to refresh
Open {path/filename} For Input as #1 Do While Not EOF(1) input #1, Xval(MyCount),Yval(MyCount) Mycount=MyCount+1 Loop Close #1
Sub Main() Dim FileArray() As String Dim FileName As String ' Setup Folder And filecounter ' Example lists all bitmaps In C:\Windows Folder = Dir("C:\Windows\*.bmp") count = 0 ' Parse the folder Until filename returns empty (no more files) ' And count the files ending With .bmp While Folder <> "" count = count + 1 Folder = Dir Wend ' The MsgBox is For debug/example purposes And displays the ' number of bitmaps found MsgBox "Filecount: " & count ' Initialize the FileArray (create the array) With the size of ' count (number of files found) ReDim FileArray(count) ' Fill the filearray With the bitmap filenames FileArray(0) = Dir("C:\Windows\*.bmp") ' For debug/example purposes, displays the bitmap filenames For i = 1 To count FileArray(i) = Dir FileName = FileName + Chr(13) + FileArray(i) Next i MsgBox FileName End Sub
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |