ik wil dat een file die ik gescand heb opgeslagen wordt in een subfolder van de lokatie waar de database staat. hoe kan ik dit pointen.
stel de db staat in c:\abc\def\database.accdb en ik wil vervolgens in een stukje vb script het pad hiernaartoe aangeven zonder het volledige pad op te moeten geven. hoe doe ik dat dan. normaal is c:\abc\def\subfolder\image.jpg maar nu wil ik dus aangeven ??????\subfolder\image.jpg zodat waar de db ook staat hij altijd het bestand in de subfolder plaatst. wat moet ik bij de ???? invullen?
na een tijdje zoeken toch zelf gevonden.
het volgend stukje opent het scanner dialoog en slaat het bestand vervolgens op in de \Img subfolder van de database map waar die dan ook staat
Private Sub Knop0_Click()
Dim commondialog1 As Object
Dim Img As ImageFile
Set commondialog1 = CreateObject("wia.commondialog")
Set Img = commondialog1.ShowAcquireImage(ScannerDeviceType, _
GrayscaleIntent, _
MinimizeSize, _
wiaFormatJPEG)
Img.SaveFile "" & Application.CurrentProject.Path & "\Img\test.jpg"
End Sub
stel de db staat in c:\abc\def\database.accdb en ik wil vervolgens in een stukje vb script het pad hiernaartoe aangeven zonder het volledige pad op te moeten geven. hoe doe ik dat dan. normaal is c:\abc\def\subfolder\image.jpg maar nu wil ik dus aangeven ??????\subfolder\image.jpg zodat waar de db ook staat hij altijd het bestand in de subfolder plaatst. wat moet ik bij de ???? invullen?
na een tijdje zoeken toch zelf gevonden.
het volgend stukje opent het scanner dialoog en slaat het bestand vervolgens op in de \Img subfolder van de database map waar die dan ook staat
Private Sub Knop0_Click()
Dim commondialog1 As Object
Dim Img As ImageFile
Set commondialog1 = CreateObject("wia.commondialog")
Set Img = commondialog1.ShowAcquireImage(ScannerDeviceType, _
GrayscaleIntent, _
MinimizeSize, _
wiaFormatJPEG)
Img.SaveFile "" & Application.CurrentProject.Path & "\Img\test.jpg"
End Sub
Laatst bewerkt:
