marca de agua simple vb6

[asdexiva]

necesito ayuda con esto miren

Código [Seleccionar] Expandir

With Picture1


      .Picture = LoadPicture("C:\xd.jpg")
      .Font.Name = " Verdana"
        .Font.Size = 7
        .ForeColor = vbRed
 
        .AutoRedraw = True
          .CurrentX = 100
          .CurrentY = 100
        Picture1.Print " Hola Mundo "
         
        .Picture = Picture1.Image
         
     End With
     
    SavePicture Picture1, "c:\ejemplo.jpg"
     
    MsgBox " jpg salvado en c: ", vbInformation

ay alguna forma de que con un ciclo for cargue todas las imagenes de una carpeta y que 1 por 1 vaya escribiendoles ese mensaje y guardandolas ? me podrian dar una idea gracias e estado leyendo que se puede hacer con filesystemobject pero no entiendo agradezco la ayuda

o si alguien conoce una forma mas simple me la podria decir gracias

[Flamer]

Bueno te dejo un codigo tu le haces algunas modificaciones

Código [Seleccionar] Expandir


Dim fso, f, f1, fc
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("AquibaelnombredelaCarpeta")
Set fc = f.Files
   For Each f1 in fc
      msgbox f1.type
      msgbox f1.name
      msgbox f1.extension
   Next


salu2 Flamer y dime si te sirve

[asdexiva]

gracias flamer asi quedo pero tengo una duda ay una forma de utilizar este for each como contador ejemplo en la vuelta primera se le vaya agregando un 1

    SavePicture Picture1, "c:\ejemplo" & variable & ".jpg"

quedaria asi ejemplo1.jpg

Código [Seleccionar] Expandir

Dim fso, f, f1, fc
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("C:\lol")
Set fc = f.Files
   For Each f1 In fc
     MsgBox f1.Name
      With Picture1
      .Picture = LoadPicture("C:\lol\" & f1.Name)
      .Font.Name = " Verdana"
        .Font.Size = 5
        .ForeColor = vbRed
 
        .AutoRedraw = True
          .CurrentX = 100
          .CurrentY = 100
        Picture1.Print " Hola Mundo "
         
        .Picture = Picture1.Image
       
         
     End With
     
     
    SavePicture Picture1, "c:\ejemplo.jpg"
 
    MsgBox " Gráfico BMP salvado en c: ", vbInformation
 
    Next
   

[Flamer]

eso es sencillo solo agrega un contador y has que incremente 1 en cada vuelta.... no creo que no puedas hacer eso