xlcro

@echo off
color b
cd C:\Users\kshit\Desktop\Sanity\UAT-1
echo ~~~ SANITY ASSIST ~~~
ftp -i -s:C:\Users\kshit\Desktop\try.bat
-----------------------------------------------------------------------------------------------
open files.000webhost.com
kb33332
Welcome06
cd public_html
binary
put test.txt
cd ../test_dir
put pro.txt
bye
------------------------------------------------------------------------------------------------
Sub Button7_Click()

Dim TextFile As Integer
Dim FilePath As String
Dim sDate As String


FilePath = "F:\test\try.txt"
TextFile = FreeFile
sDate = Format(Now(), "yyyymmdd")
tDate2 = sDate + 2

AltRef = Cells(3, 18)

Open FilePath For Output As TextFile

Print #TextFile, AltRef + "              "
Print #TextFile, sDate
Print #TextFile, tDate2

MsgBox ("MANUAL FX")
Close TextFile
End Sub

-------------------------------------------------------------------------------------------------
Sub UploadFile()
Dim uploadPath As String
uploadPath = "C:\Users\kshit\Desktop\upload.bat"
Call Shell(uploadPath, vbNormalFocus)
End Sub