Fa جايگزيني تصوير

[nazary2009]

سلام مي خوام برنامه تصويري رو كه كاربر بازكرده به طور خودكار درمسير پيشفرض (درايو cپوشه برنامه) كپي كنه وهمچنين امكان جايگزيني آن با تصوير ديگري
وجودداشته باشد

 

[Corovarice]

منظورتون اینه ؟ :

OpenFile("All files(*.*)|*.*|","*.*")
If (OpenFile$='') Then
  Return()
End
P1$='C:\Folder\Image'
P2$=ExtractExt(OpenFile$)
Path$=P1$+P2$
SysCommand("CopyFile","OpenFile$,Path$")

 

[amiralavi74]

لطفا منظورتون رو واضح تر بیان کنید.