Hoi allemaal,
In access is een database gebouwd waarin ik via een formulier doorzoek naar een machinebesturingsprogramma.
Het volgende script krijg ik werkend om met variabele bestandnamen in variabele folders bestanden met de extentie .opt te openen in Notepad.
Ik zoek echter een functionaliteit waarmee ik ook files kan openen zonder extentie!
Shell.
De files kennen geen extentie en moeten deze ook niet krijgen, de files worden namelijk door andere software uitgelezen.
In access is een database gebouwd waarin ik via een formulier doorzoek naar een machinebesturingsprogramma.
Het volgende script krijg ik werkend om met variabele bestandnamen in variabele folders bestanden met de extentie .opt te openen in Notepad.
Ik zoek echter een functionaliteit waarmee ik ook files kan openen zonder extentie!
Shell.
De files kennen geen extentie en moeten deze ook niet krijgen, de files worden namelijk door andere software uitgelezen.
Code:
Private Sub Programmanummer_DblClick(Cancel As Integer)
DoCmd.OpenForm "TekeningProgrammaSubFrm"
A = Programmanummer.Text
X = ProgrammanummerIdMachineData
B = DLookup("Machinenummer", "MachinesTabel", "IdMachineData=" & X)
C = "Q:\"
E = ".opt"
D = C & B & "\" & A & E
G = C & B & "\" & A & F
Shell ("""notepad.exe"" """ & D & """"), vbNormalFocus
End Sub