-
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Function Vba
- Onderwerp starter datbenik
- Startdatum
- Status
Oeps 
Function UploadFile(ByVal HostName As String, _
ByVal UserName As String, _
ByVal Password As String, _
ByVal LocalFileName As String, _
ByVal RemoteFileName As String) As Boolean
Dim FTP As Inet
Set FTP = New Inet
With FTP
.Protocol = icFTP
.RemoteHost = HostName
.UserName = UserName
.Password = Password
.Execute .URL, "Put " + LocalFileName + " " + RemoteFileName
Do While .StillExecuting
DoEvents
Loop
UploadFile = (.ResponseCode = 0)
End With
Set FTP = Nothing
End Function
Function UploadFile(ByVal HostName As String, _
ByVal UserName As String, _
ByVal Password As String, _
ByVal LocalFileName As String, _
ByVal RemoteFileName As String) As Boolean
Dim FTP As Inet
Set FTP = New Inet
With FTP
.Protocol = icFTP
.RemoteHost = HostName
.UserName = UserName
.Password = Password
.Execute .URL, "Put " + LocalFileName + " " + RemoteFileName
Do While .StillExecuting
DoEvents
Loop
UploadFile = (.ResponseCode = 0)
End With
Set FTP = Nothing
End Function
LucHeyndrickx
Terugkerende gebruiker
- Lid geworden
- 23 dec 2003
- Berichten
- 1.030
Hallo,
Je zou beter zeggen waar je die functie gevonden hebt.
Dit is geen gewone Excel-VBA code. Indien het al voor Excel van toepassing is, dan wordt er gebruik gemaakt van een of andere exotische objectenbibliotheek. Deze bibliotheek moet je dan aanvinken in de VBA editor => Extra => verwijzingen. Maar ik heb geen zin om uit te zoeken om welke bibliotheek het gaan. Er zijn er zo 'n paar honderd.
En een functie hang je inderdaad niet aan een knop, maar die gebruik je in andere macro's, waarbij je de functie aanroept, en de argumenten meegeeft, die hier tussen de haakjes staan. Hier 5.
Luc
Je zou beter zeggen waar je die functie gevonden hebt.
Dit is geen gewone Excel-VBA code. Indien het al voor Excel van toepassing is, dan wordt er gebruik gemaakt van een of andere exotische objectenbibliotheek. Deze bibliotheek moet je dan aanvinken in de VBA editor => Extra => verwijzingen. Maar ik heb geen zin om uit te zoeken om welke bibliotheek het gaan. Er zijn er zo 'n paar honderd.
En een functie hang je inderdaad niet aan een knop, maar die gebruik je in andere macro's, waarbij je de functie aanroept, en de argumenten meegeeft, die hier tussen de haakjes staan. Hier 5.
Luc
DENNIS90
Banned
- Lid geworden
- 8 sep 2001
- Berichten
- 5.190
Zijn 'gevonden' functie betreft het een niet VBA functie, maar een VB. Daarbij is voor het te gebruiken functie het inet-control benodigd. Dat moet op de Tool-box nog worden toegevoegd. Dat control is a.h.w. een class(bibliotheek van modules), die nodig zijn voor het uitvoeren van FTP. Als het goed is heb ik een dergelijk programma hier ooit geschreven. Zal het straks gaan opzoeken. Maar anders wordt het wel morgen. Inderdaad wordt bij de aanroep van die functie 5 argumenten meegegeven, maar het resultaat van die functie kan één v.d. 2 zijn, True of False.
Dennis.
Dennis.
- Status
