Paso 5: Escritura sin el comentario
' Su VB antes el FTP subir Dim MyDirectory como cadena Dim archivo1 AsIntegerDim archivo2 como IntegerFile1 = FreeFileFile2 = FreeFile ' cambiar a un directorio de su elección ‘Your VB before the FTP upload Dim MyDirectory As String Dim File1 AsIntegerDim File2 As IntegerFile1 = FreeFileFile2 = FreeFile ‘Change this to a directory of your choosing MyDirectory = “C:\Temp\FTPFiles" ‘Kill existing .out filesIf Dir(MyDirectory & ".out") <> "" Then Kill (MyDirectory & ".out") Open MyDirectory & ".txt" For Output As #File1 ‘Put your ftp server address herePrint #File1, "open ftp.myserver.com" ‘Put your user name herePrint #File1, “my_username” ‘Put your password herePrint #File1, “my_password” ‘Change your remote directory. Omit this line if root is fine.Print #File1 “cd my/remote/directory/” ‘Add your list of files here using put or mput with wildcard if neededPrint #File1, “put C:/MyFiles/thisfile1.png”Print #File1, “put C:/MyFiles/thisfile2.png” Print #File1, "bye"Close #File1 Open MyDirectory & ".bat" For Output As #File2Print #File2, "ftp -s:" & MyDirectory & ".txt"Print #File2, "Echo ""Complete"" > " & MyDirectory & ".out" Close #File2 ‘Execute the bat fileShell (MyDirectory & ".bat"), vbNormalFocus Do While Dir(MyDirectory & ".out") = "" DoEvents Loop Application.Wait (Now + TimeValue("0:00:03")) ‘Delete the batch filesIf Dir(MyDirectory & ".bat") <> "" Then Kill (MyDirectory & ".bat")If Dir(MyDirectory & ".out") <> "" Then Kill (MyDirectory & ".out")If Dir(MyDirectory & ".txt") <> "" Then Kill (MyDirectory & ".txt") ‘Your VB after the upload ' Matar existentes ni públicosSi Dir (MyDirectory & "ni") <> "" entonces matar (MyDirectory & "ni")' Poner tu servidor de ftp dirección herePrint #File1, «ftp.myserver.com abierto» ' poner tu nombre de usuario herePrint #File1, "nombre_usuario" ' poner su contraseña herePrint #File1, "my_password" ' cambiar el directorio remoto. Omita esta línea si la raíz es fina. Imprimir #File1 "cd mi remoto/directorio / /" ' Añadir a la lista de archivos aquí con poner o mput comodín si neededPrint #File1, "poner C:/MyFiles/thisfile1.png"Print #File1, "puesto C:/MyFiles/thisfile2.png" #File1, "bye" MyDirectory abierto cerca #File1 y ".bat" para la salida como #File2Print #File2, "ftp - s:" & MyDirectory & ".txt" impresión #File2, "Echo""completo" ">" & MyDirectory & "ni" cerrar #File2 ' ejecutar el bat fileShell (MyDirectory & ".bat") , vbNormalFocus hacer mientras Dir(MyDirectory & ".out") = "" DoEvents Loop
