Iemand een oplossing?

[vayreda]

Er zijn drie computers in het land: Die hebben als afkorting bv. HMM, PMM & KMM
Bij iedere computer is er een omgevingsvariabelen aangemaakt: Naam variabele MOT_POT met als waarde: HMM etc.

Nu hebben alle drie deze computer 1 vbapplicatie met een button die Excelsheets aanstuurt. Iedere computer heeft dezelfde map met als naam: ExcelMap waar die Excelsheet staat: E:\HMM\Map\Map\Excelmap
Hieronder de code in het programma:

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim systeemVariabele As String
systeemVariabele = Environment.GetEnvironmentVariable("MOT_POT")
directoryNaam = "E:\" & systeemVariabele & "\Map\Map"
End Sub

Hieronder de code als je op een button klik:

Private Sub exsButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exsButton.Click
System.Diagnostics.Process.Start(directoryNaam & "\ExcelMap\Sheet.xls")
End Sub

Dit werkt goed.

Nu wil ik een er een map bij zetten met als naam: Eigen (waar ook excelsheets in staan)
Die staat ook op de E:\ met als pad: E:\Thuis\ExcelMap.

Kan iemand mij helpen met een code om dit ook aan te sturen? Ben al een paar dagen bezig, maar het wil niet erg lukken.
Bedankt.

 

[vayreda]

Ik zie dat het op het probleem nog geen reactie is binnengekomen.
Is er iemand in de buurt van Haarlem die mij kan helpen met dit probleem?

 

[mark199]

Misschien kan je iets speciefieker zijn, met wat er precies moet gebeuren, want kan er zo eigenlijk niks van maken.

 

[vayreda]

Beste Mark,

Bedankt voor je reactie. Waar kan je niets van maken? En hoe specifiek?

 

[mark199]

Ik begrijp de bedoeling van je script niet helemaal. Je hebt een knop in je programma waarmee je een map opent waar excel files in staan, vervolgens wil je met dezelfde of met een ander knop nog een map openen of open je een bestand?

 

[mark199]

Ben er nog even mee bezig geweest, maar ik mis het nut van de systeenvariabelen eerlijk gezegd. Als de map op exact dezelfde plaats staat op alle computers, waarom dat niet gwoon in je code zetten?

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        System.Diagnostics.Process.Start("E:\HMM\ExcelMap\Sheet.xls")
        System.Diagnostics.Process.Start("E:\Thuis\ExcelMap")
    End Sub

Laat even weten of dit nou is wat je bedoeld........

 

[vayreda]

Mark,

Bedankt voor je reactie. Ik keek even snel of je had gereageerd. Ga er morgenochtend meteen mee aan de slag (zit op dit moment met familie!!!!) en laat je wat weten. Ik ben echt blij dat je misschien een antwoord hebt gevonden.
Bedankt.

 

[mark199]

Het kan met de code die je gestuurd hebt op de volgende manier:

Imports System.Diagnostics

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim directoryNaam As String
        Dim systeemVariabele As String
        Dim sheetxls As String

        systeemVariabele = Environment.GetEnvironmentVariable("MOT_POT")

        sheetxls = systeemVariabele & "_Sheet_Sheet.xls"
        directoryNaam = "E:\Map\Map\" & sheetxls

        Process.Start(directoryNaam)
    End Sub
End Class

Of op de volgende manier:

Imports System.Diagnostics

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim systeemVariabele As String

        systeemVariabele = Environment.GetEnvironmentVariable("MOT_POT")

        Select Case systeemVariabele
            Case "HMM"
                Process.Start("E:\map\map\HMM_Sheet_Sheet.xls")
            Case "PMM"
                Process.Start("E:\map\map\PMM_Sheet_Sheet.xls")
            Case "KMM"
                Process.Start("E:\map\map\KMM_Sheet_Sheet.xls")
            Case Else
                MessageBox.Show("Er is een fout opgetreden", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Select
    End Sub
End Class

 

[vayreda]

Beste Mark,

Ik heb de eerste code gebruikt en het werkt! :thumb:
Hartelijk bedankt en ik hoop in de toekomst eens een vraag van jou te kunnen oplossen (kans erg klein, maar je weet nooit).
Voorspoedig en een gezond 2007

 

[mark199]

Blij te horen dat het werkt :thumb: Jij ook een voorspoedig en een gezond 2007