Dim ObjectPath$(500)
set text font "Arial"
set text size 12
Gosub GetFilePaths
wait key
GetFilePaths:
ClipboardData$ = Get Clipboard$()
Separator$=first token$(ClipboardData$,";")
Count = 0
While Separator$<> ""
Separator$=next token$(";")
If Separator$ <> ""
ObjectPath$(Count) = Separator$
endif
print objectpath$(count)
endwhile
print "finished"
Return
The output is simply "finished"
My clipboard is "C:\Users\Matthew\Documents\TopHatEngine\ENGINE\Utilities\Image Converter\Images;C:\Users\Matthew\Documents\chessrender.bmp;C:\Users\Matthew\Documents\glockUV.bmp;C:\Users\Matthew\Documents\gloveuv.bmp;C:\Users\Matthew\Documents\skintex.bmp;C:\Users\Matthew\Documents\texture_1.bmp"
(Wrote a program in VB.net that turns a list of selected files into clipboard data, where each item is separated by ";". The first item is the output folder)
What am I doing wrong?