Set fsO = CreateObject("Scripting.FileSystemObject")
Set MyFile = fsO.GetFile("c:\tinytalk" & "\" & file_name)
isinya = "Move" & " " & MyFile & " " & "c:\tinytalk\buang\"
Close #1
Open "c:\pindah.bat" For Output As #1
Print #1, isinya
Close #1 ' Close file.
Shell "c:\pindah.bat", vbNormalFocus
Sincerely yours,
Fay Sutantijo
IT Division
PT CIBADAK INDAH SARI FARM
Kompleks Rasa Sayang C-20
Jl. Daan Mogot
Jakarta 11460, Indonesia
Phone : +62-21-5660931
Mobile: +62811943593
e-mail : <mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]
website : <http://www.cibadak.com> http://www.cibadak.com
