Creating file

Blitz3D Forums/Blitz3D Programming/Creating file

amitjf(Posted 2007) [#1]
Well its now about more than 0.5 year i didn't used Blitz3D so tell me whats wrong here because it doesn't create the file somewhy:

Include "FTPFunctions.bb"
AppTitle "Client"
For i = 1 To CountHostIPs("")
hip = HostIP(i)
Print DottedIP(hip)
Next
Print "Connecting to server..."
FTP_Connect("***","***","***","")
Print "Connected..."
Print "Creating file containing your ip..."
CreateDir("ip")
ipfile=WriteFile("ip\"+hip+".dat")
WriteString(ipfile,hip)
CloseFile(ipfile)
Print "Sending your ip to the server..."
FTP_Put("ip\"+hip+".dat",1,GraphicsWidth/2,GraphicsHeight/2)
Print "Finished..."
WaitKey()
End


amitjf(Posted 2007) [#2]
Nvm fixed it...


b32(Posted 2007) [#3]
What was wrong then ?