Private Sub Command5_Click()
Dim fs
Set fs = CreateObject("scripting.filesystemobject")
FileName = Text1.Text
Debug.Print FileName
fs.MoveFile FileName, Text2.Text
End Sub

Private Sub CopyFile(Byval fn as string, byval DestDir as string)
'copies file(s) fn.* from 3 fixed directories to destdir
Dim srcDir as string
Dim s as string

if Right$(DestDir,1) <> "\" then DestDir = DestDir & "\"
srcDir = "c:\Textures\"
s = Dir$(s & fn & ".*")
While Len(s)   'while s is not null
     FileCopy srcDir & fn, DestDir & fn
     s = Dir$  'get another file
Wend
srcDir = "c:\Textures\Decals\"
s = Dir$(s & fn & ".*")
While Len(s)   'while s is not null
     FileCopy srcDir & fn, DestDir & fn
     s = Dir$  'get another file
Wend
srcDir = "c:\Textures\Sprites\"
s = Dir$(s & fn & ".*")
While Len(s)   'while s is not null
     FileCopy srcDir & fn, DestDir & fn
     s = Dir$  'get another file
Wend
End Sub

dim i as integer
dim names as string
dim aFn() as string  'array of strings

names = text1.text  'collect the names into a single string
'PRESUMABLY you've separated the names somehow, maybe by crlf or tabs or spaces or commas.
' If not, you got a problem....
aFn = Split(names," ")  'assumes filenames are separated by spaces

For i = 0 to ubound(aFn)
     if len(aFn(i)) then  'simple error check
          CopyFile aFn(i), "c:\temp\"
     end if
next i

Private Sub Command5_Click()
Dim i As Integer
Dim names As String
Dim aFn() As String  'array of strings

names = Text1.Text  'collect the names into a single string
'PRESUMABLY you've separated the names somehow, maybe by crlf or tabs or spaces or commas.
' If not, you got a problem....
aFn = Split(names, vbCrLf) 'assumes filenames are separated by spaces
Do
For i = 0 To UBound(aFn)
     If Len(aFn(i)) Then  'simple error check
          FileCopy txtDir.Text & "\" & aFn(i) & ".tga", "c:\textures"
     End If
Next i
Loop
End Sub

Private Sub CopyFile(ByVal fn As String, ByVal DestDir As String)
'copies file(s) fn.* from 3 fixed directories to destdir
Dim srcDir As String
Dim s As String

If Right$(DestDir, 1) <> "\" Then DestDir = DestDir & "\"
srcDir = "c:\Sierra\SWAT3\Missions\sample\mission\texture\"
s = Dir$(s & fn & ".*")
While Len(s)   'while s is not null
     FileCopy srcDir & fn, DestDir & fn
     s = Dir$  'get another file
Wend
srcDir = "c:\Sierra\SWAT3\Missions\sample\mission\texture\decals\"
s = Dir$(s & fn & ".*")
While Len(s)   'while s is not null
     FileCopy srcDir & fn, DestDir & fn
     s = Dir$  'get another file
Wend
srcDir = "c:\Sierra\SWAT3\Missions\sample\mission\texture\sprites"
s = Dir$(s & fn & ".*")
While Len(s)   'while s is not null
     FileCopy srcDir & fn, DestDir & fn
     s = Dir$  'get another file
Wend
End Sub



Private Sub Command5_Click()
Dim i As Integer
Dim names As String
Dim aFn() As String  'array of strings
Dim src As String
Dim dest As String

names = Text1.Text  'collect the names into a single string
'PRESUMABLY you've separated the names somehow, maybe by crlf or tabs or spaces or commas.
' If not, you got a problem....
 aFn = Split(names, vbCrLf)  'assumes filenames are separated by spaces


For i = 0 To UBound(aFn)
     If Len(aFn(i)) Then  'simple error check
     
     
src = CopyFile

dest = CopyFile
Debug.Print "copying from "; src; " to "; dest

FileCopy src, dest
End If
Next i
 
End Sub

Private Sub Command5_Click()
Dim i As Integer
Dim names As String
Dim aFn() As String  'array of strings

names = Text1.Text  'collect the names into a single string
'PRESUMABLY you've separated the names somehow, maybe by crlf or tabs or spaces or commas.
' If not, you got a problem....
 aFn = Split(names, vbCrLf)  'assumes filenames are separated by spaces


For i = 0 To UBound(aFn)
     If Len(aFn(i)) Then  'simple error check
          CopyFile aFn(i), "c:\textures\"
     End If
Next i
 
End Sub

 
copyfile afn(i), "c:\textures"