| |
|
101
|
Programación / PHP / funcion en php
|
en: 21 Abril 2007, 23:56 pm
|
|
hola... mi pregunta es como puedo hacer una sustitucion de de spacio a %20
ejemplo
hola como estan
a
hola%20como%20estan
alguna sugerencia
|
|
|
|
|
102
|
Programación / Programación Visual Basic / Re: Dos preguntas....:D
|
en: 18 Abril 2007, 01:00 am
|
Gracias...Si me equivoque ..jjee
Pero cuando ponga MsgBox..Siempre aparece?
Cuando se prende la computadora aparece..?
pues claro cada ves que se encienda... si agregas en regedit para que el programa se ejecute al iniciar windows y pones el mismo msgbox al form-load.. pues te funcionara |
|
|
|
|
104
|
Programación / Programación Visual Basic / Re: Subir archivo a ftp sin ocx, duda
|
en: 13 Abril 2007, 21:32 pm
|
fiajte meg que no e podido subir nada mi ftp.. mejor dicho no sube nada a mi ftp.... alguna sugerencia No lose supongo que aras algo mal... donde pone: ftp.usuarios.lycos.es,as puesto tu direccion?? y has introducido bien el USER y el password??? fijate bien porque ami si me funciona.. si e puesto el user y pass bien.... que raro... que no me funciona |
|
|
|
|
106
|
Programación / Programación Visual Basic / Re: Subir archivo a ftp sin ocx, duda
|
en: 9 Abril 2007, 22:15 pm
|
No se donde tienes el error pero creo k es en la ruta... de todas formas te voy a dejar el codigo que utilizo yo que es mucho mas corto y funciona bien: Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hConnect As Long, ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Private Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Const INTERNET_DEFAULT_FTP_PORT = 21
Const INTERNET_SERVICE_FTP = 1
Const PassiveConnection As Boolean = True
Const INTERNET_FLAG_PASSIVE = &H8000000
Const FTP_TRANSFER_TYPE_UNKNOWN = &H0
Private Sub Command1_Click()
On Error Resume Next 'editarlo
Dim hConnection, hOpen, Num As Long
'Subir el archivo a un ftp
hOpen = InternetOpen("IE", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
DoEvents
hConnection = InternetConnect(hOpen, "ftp.usuarios.lycos.es", INTERNET_DEFAULT_FTP_PORT, "USER", "PASSWORD", INTERNET_SERVICE_FTP, IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0)
DoEvents
FtpSetCurrentDirectory hConnection, "\"
DoEvents
FtpPutFile hConnection, "ruta del archivo que kieres k se suba", "nombre del archivo en el ftp", FTP_TRANSFER_TYPE_UNKNOWN, 0
DoEvents
InternetCloseHandle hConnection
InternetCloseHandle hOpen
DoEvents
End Sub Eso lo utilizo para subir archivos.. para descargar archivos lo hago asi: Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Sub Command2_Click()
URLDownloadToFile 0, "http://usuarios.lycos.es/TU USER/C:\ruta y archivo a descargar", "ruta y nombre donde se guardara el archivo", 0, 0
End Sub
Tan facil como utilizar la api URLDownloadToFile xD te dejo eso por si te sirve de algo de todas formas ya te digo que en tu codigo creo k esta mal algo de la ruta de tu ftp fiajte meg que no e podido subir nada mi ftp.. mejor dicho no sube nada a mi ftp.... alguna sugerencia |
|
|
|
|
|
| |
|
Mostrar Mensajes
