Copy in VB

[Ronald_stage]

ik heb met een "browse functie" de mogelijkheid om een bestand te selecteren.

nu wil ik met 1 druk op de knop dit bestand opslaan op een netwerklocatie (bv 192.168.1.2\share)

dit is de code voor de "browse functie"


//code

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
---
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
---
Private Sub File1_Click()
SelectedFile = File1.Path & "\" & File1.FileName
End Sub
---

Private Sub Backup_Click()

????

End Sub

\\code

Wat moet ik doen bij de "????" ?

bij voorbaat dank
Een VB newbie

[-Michel-]

Check de FileCopy functie

[MrDry]

Kijk maar eens op planetsourcecode.com daar vind je alles over VB

[Ronald_stage]

Door gewoon

code:

Private Sub Command1_Click()
Filecopy (SelecedFile,*)
End Sub

op dat steretyje heb ik geprobeert "192.168.1.2\share"
maar er moet ergens een = komen te staan ofzo

[-Michel-]

FileCopy SelectedFile, \\192.168.0.1\share

Ofzo.... ik heb effe geen VB bij de hand maar probeer eens wat zou ik zeggen.

[Ronald_stage]

code:

Private Sub Command1_Click()
Filecopy (SelecedFile, "\\10.205.50.50\share" )
End Sub

krijg ik een melding:
expected: =

code:

Private Sub Command1_Click()
Filecopy (SelecedFile, ="\\10.205.50.50\share" )
End Sub

krijg ik een melding:
expected: expresion

ik weet het niet??
maar ik vergeet iets.

[MrDry]

Private Sub Command1_Click()
FileCopy "c:\test.doc", "\\192.168.0.1\company\test.doc"
End Sub

werkt zo hoor !

[Ronald_stage]

Je het werkt als je keihard de locatie en bestandsnaam invooerd

maar dat moet nu juist niet
hij moet "selectedFile" inhoudelijk (dir1.paht+filename)
kopieren naar "192.168.1.2\share\filename

nu heb ik dit geprobeerd

code:

FileCopy "SelectedFile", "\\192.168.1.2\share\" & "File1.FileName"

maar dat werkt ook niet

[Ronald_stage]

Niemand met VB kennis hier?????

[wasigh]

Op dinsdag 22 januari 2002 13:38 schreef Ronald_stage het volgende:
Niemand met VB kennis hier?????

Je topic schoppen binnen een half uur wordt niet gewaardeerd niet meer doen dus

[Verwijderd]

Op dinsdag 22 januari 2002 12:27 schreef Ronald_stage het volgende:

code:

Private Sub Command1_Click()
Filecopy (SelecedFile, "\\10.205.50.50\share" )
End Sub

krijg ik een melding:
expected: =

code:

Private Sub Command1_Click()
Filecopy (SelecedFile, ="\\10.205.50.50\share" )
End Sub

krijg ik een melding:
expected: expresion

ik weet het niet??
maar ik vergeet iets.

Je naam zegt het al (stage) maar je snapt blijkbaar geen moer van de fundamenten van VB Functies mag je namelijk niet met haakjes aanroepen mits je iets met de returncode doet. Met wat je hier doet ben je er bijna, alleen je kan dus óf DIT doen:

code:

a = Filecopy(Dir1.Path & "\" & File1.FileName, "\\10.205.50.50\share\" & File1.FileName)

OF dit

code:

Filecopy Dir1.Path & "\" & File1.FileName, "\\10.205.50.50\share\" & File1.FileName

[Gé Brander]

Sub kopieerfile()
Set ObjFileSys = CreateObject("Scripting.FileSystemObject")
Sourcedir = "Brondirectory"
Destinationdir = "Doeldirectory"
ObjFileSys.CopyFile SourceDir, DestinationDir
End Sub

Dat werkt prima bij mij...

[Ronald_stage]

dank je
hij werkt

[Verwijderd]

Op dinsdag 22 januari 2002 13:47 schreef c70070540 het volgende:
Sub kopieerfile()
Set ObjFileSys = CreateObject("Scripting.FileSystemObject")
Sourcedir = "Brondirectory"
Destinationdir = "Doeldirectory"
ObjFileSys.CopyFile SourceDir, DestinationDir
End Sub

Dat werkt prima bij mij...

Dit is niet Native VB, en dus niet aan te raden, ook al bevat 95% van de windows pc's wel dat scripting object, je moet het toch meeleveren wat je distributie vergroot.

Principekwestie i guess, maar ik zou de native FileCopy prefereren.

[Ronald_stage]

bedank,

daarom staat er stage,Freewilly, ik ben hier om iets te leren.
als ik alles al wist kon ik anderen helpen.

[Verwijderd]

Op dinsdag 22 januari 2002 13:54 schreef freewilly het volgende:

[..]

Dit is niet Native VB, en dus niet aan te raden, ook al bevat 95% van de windows pc's wel dat scripting object, je moet het toch meeleveren wat je distributie vergroot.

Principekwestie i guess, maar ik zou de native FileCopy prefereren.

Idd. dit soort dingen zie ik heel vaak terwijl de gewone Windows API's toch ook voor handen zijn.

Bovendien zit je ook nog met security issues m.b.t. scripting objects (zoals VBScript); ik kan me 'zomaar' voorstellen dat M$ besluiten om bijv. file operations uit VBScript te halen.

Niet gebruiken dus die scripting zooi. 't Is nog trager ook.

[Verwijderd]

Op dinsdag 22 januari 2002 14:00 schreef Ronald_stage het volgende:
bedank,

daarom staat er stage,Freewilly, ik ben hier om iets te leren.
als ik alles al wist kon ik anderen helpen.

Uiteindelijk hebben we het allemaal moeten leren

[Ronald_stage]

Nog een vraagje
bij Drive1.drive enz kan ik daar een default in opgeven

[KO]

Drive1.Drive = "C:\"

[Gé Brander]

Op dinsdag 22 januari 2002 13:54 schreef freewilly het volgende:

[..]

Dit is niet Native VB, en dus niet aan te raden, ook al bevat 95% van de windows pc's wel dat scripting object, je moet het toch meeleveren wat je distributie vergroot.

Principekwestie i guess, maar ik zou de native FileCopy prefereren.

Kijk, zo leer ik ook nog eens wat. Mag ik hier dan nog een vraagje over stellen?

Als een bestand nu in gebruik is op een share en ik wil hem via een VB prog verwijderen, kan dit dan via een of andere optie?

[gotcha]

volgens mij kan dat niet.... stelregel is dat als je het bestand zelf niet kunt verwijderen mbv verkenner dan kan het met VB ook niet.
al sluit ik niet uit dat het wel mogelijk is via een al dan niet gedocumenteerde truuk, het is ook niet echt wenselijk lijkt me. in de meeste gevallen zullen die bestanden immers echt in gebruik zijn door een andere gebruiker/applicatie en die wordt niet blij als jij stiekem zn bestand sloopt

[Gé Brander]

Op dinsdag 22 januari 2002 19:41 schreef gotcha het volgende:
volgens mij kan dat niet.... stelregel is dat als je het bestand zelf niet kunt verwijderen mbv verkenner dan kan het met VB ook niet.
al sluit ik niet uit dat het wel mogelijk is via een al dan niet gedocumenteerde truuk, het is ook niet echt wenselijk lijkt me. in de meeste gevallen zullen die bestanden immers echt in gebruik zijn door een andere gebruiker/applicatie en die wordt niet blij als jij stiekem zn bestand sloopt

Normaal gesproken zou ik het helemaal met je eens zijn, maar in dit geval heb ik een tool gebouwd om een nieuwe versie van een Cool:GEN applicatie te releasen. De applicatie staat op een netwerkshare en de gebruikers zouden er uit moeten zijn, maar ja je weet hoe gebruikers zijn... Dus moet ik nu in de tool Enterprise Administrator de open files opzoeken en 'closen' om ze daarna nogmaals te proberen te verwijderen. Dus als er een manier is om de files vanuit VB te 'closen' zou mij dat natuurlijk uitermate goed uitkomen. Scheelt weer wat handwerk, je weet hoe beheerders zijn nietwaar...