foto toevoegen maar copy lukt niet

[mathijs1986]

Ik heb een Userform waarmee ik foto's kan toevoegen, de foto's worden geladen in een frame en het path word in kolomB tot KolomI weergegeven. nu wil ik graag dat op het moment er een foto gekozen is de foto van de oorspronkelijke locatie word gekopierd naar een map C\foto. deze map is dan speciaal voor de foto's en moet alle toegevoegde foto's gaan bevatten.

Graag hulp hierbij

 

[mathijs1986]

ik heb die filedialog picker

Private Sub CmdFotoToevoegen_Click()
Dim File As FileDialog, sItem As String

   Set File = Application.FileDialog(msoFileDialogFilePicker)
    
    With File
        .Title = "Selecteer een Bestand"
        .AllowMultiSelect = False
        .InitialFileName = Application.DefaultFilePath
        If .Show <> -1 Then GoTo Nextstap
sItem = .SelectedItems(1)
    End With

    'Image1.PictureSizeMode = fmPictureSizeModeStretch    'geregeld in de Properties
Nextstap:

    Set Me.Controls("frame" & n + 1).Picture = LoadPicture(sItem)
    n = n + 1

Daar zit de filename en oldpath in , maar hoe maak ik die bruikbaar voor in die kopieer code?

Sub CopyFile1()
  Dim FileScriptingObject As Object

  Set FileScriptingObject = CreateObject("Scripting.FileSystemObject")
  FileScriptingObject.CopyFile OldPath & FileName, NewPath & FileName
  Set FileScriptingObject = Nothing
End Sub

Kom er niet echt uit

 

[A4A]

Beste Mathijs,

Waarom niet gebruik maken van de ingebouwde functie van VBA:

Call VBA.FileCopy(OldPath & Filename, NewPath & Filename)

Mvg René

 

[mathijs1986]

het newpath kan ik wel neerzetten, dat is een vast iets, maar filename en oldpath verschillen per foto, hoe kan ik die dan gebruiken of declareren

 

[snb]

Iets simpeler:

Private Sub CmdFotoToevoegen_Click()
  c0 = Application.GetOpenFilename
  Me("frame1").Picture = LoadPicture(c0)
  FileCopy c0, "C:\"
End Sub

 

[A4A]

Beste Mathijs,

De Filename en Oldpath staat eigenlijk al voor je klaar in de textbox KolomB t/m I.
Als je weet dat de bestandsnaam altijd achteraan staat dus blabla.jpg met een padverwijzing ervoor gescheiden door "\" dan is het het makkelijkst door de waardes van bijv. KolomB te splitsen in allemaal losse woorden in 1 array. De laatste zal dan altijd de bestandsnaam zijn. Deze hoef je dan alleen maar uit te lezen.

Heb in het voorbeeld ook een errorhandle opgenomen voorals het nieuwe pad nog niet bestaat, maakt hij hem gelijk aan.

Private Sub CmdFotoCopy_Click()
Dim newpath As String
Dim bestandsnaam As Variant

newpath = "D:\testfoto's\"
bestandsnaam = VBA.Strings.Split(KolomB.Value, "\")
    On Error Resume Next
    Call VBA.FileCopy(KolomB.Value, newpath & bestandsnaam(UBound(bestandsnaam)))
        If Err Then
            VBA.FileSystem.MkDir (newpath)
            Call VBA.FileCopy(KolomB.Value, newpath & bestandsnaam(UBound(bestandsnaam)))
        End If
End Sub

Mvg. René

 

[mathijs1986]

Heej Rene,

hardstikke bedankt, hier zocht ik naar, ik heb hem aangepast, alleen krijg ik nu niet de nieuwe locatie in de textbox, wat doe ik fout?

Private Sub CmdFotoToevoegen_Click()
Dim File As FileDialog, sItem As String
Dim newpath As String
Dim bestandsnaam As Variant
newpath = "C:\CopyPath\"
   
   Set File = Application.FileDialog(msoFileDialogFilePicker)
    
    With File
        .Title = "Selecteer een Bestand"
        .AllowMultiSelect = False
        .InitialFileName = Application.DefaultFilePath
        If .Show <> -1 Then GoTo Nextstap
sItem = .SelectedItems(1)
    End With

    'Image1.PictureSizeMode = fmPictureSizeModeStretch    'geregeld in de Properties
Nextstap:

    Set Me.Controls("frame" & n + 1).Picture = LoadPicture(sItem)
    n = n + 1
    If n = 1 Then bestandsnaam = VBA.Strings.Split(sItem, "\")
    On Error Resume Next
    Call VBA.FileCopy(sItem, newpath & bestandsnaam(UBound(bestandsnaam)))
        If Err Then
            VBA.FileSystem.MkDir (newpath)
            Call VBA.FileCopy(sItem, newpath & bestandsnaam(UBound(bestandsnaam)))
        End If
    If n = 1 Then KolomB.Value = newpath & bestandsnaam

 

[A4A]

Beste Mathijs,

bestandsnaam is een array, dus

newpath & bestandsnaam(UBound(bestandsnaam))

is de code voor C:\Copypath\fotonr.jpg
Als je bovenstaande code toewijst aan de KolomB.Value moet het lukken.

Mvg. René

 

[snb]

Zie hier

 

[Mr_Magoo]

Zie hier

De vraag is op www.worksheet.nl verwijderd vanwege crossposting.

Op verschillende fora's onafhankelijk aan je vraag laten werken is niet zoals het hoort.
We weten van elkaar niet wat we doen cq aan advies en oplossingen geven.

Mr. Magoo Moderator www.worksheet.nl

 

[mathijs1986]

hoe bedoel je mr magoo, ik mag toch wel op meerdere paarden wedden, omdat ik er echt niet uit kwam

 

[Warme bakkertje]

Het probleem is niet dat je op verschillende fora je vraag plaatst, maar de beleefdheid gebied dan dat je een link plaatst naar je vraag op dat ander forum zodat kan nagekeken worden welke vorderingen ondertussen gemaakt zijn zodat er geen dubbel werk verricht wordt. De helpers op deze fora doen dit volledig kosteloos en in hun vrije tijd, dus de tijd die ze dan verspillen aan een misschien opgeloste vraag van jou kan dan besteed worden aan het helpen van iemand anders

Mvg

Rudi

 

[mathijs1986]

oke mr magoo,

NU snap ik wat je bedoelt. excuses voor deze actie, ik zet op beide fora de topic op niet in behandeling en zal zorgen dat als ik in het vervolg zoiets doe ik dan een link naar het andere forum erbij zet.

bedankt voor het attent maken,

Mvg,

Mathijs

 

[huijb]

@ XtraRap Topic is van 2009. Het is niet gewenst om hier nog op te reageren. Zie de huisregels.