Variable aanmaken met directory naam gebaseerd op gedeeltelijke naam

[Aluth]

Goede morgen,

Ik ben momenteel bezig een script te maken voor een massale ECN wijziging. Maar momenteel loop ik vast omdat er artikelnummer directories met klantnaam toevoeging zijn. Het is de bedoeling dat alleen het artikel nummer in een invoervak word ingevoegd en daarna ben ik een variabele nodig met de volledige directory naam.

Heb al vanalles gelezen en gegoogled maar kan helaas geen oplossing vinden.

Code tot nu toe voor dit stukje:

 ArtNr = TextBox1.Value
  If Len(ArtNr) = 5 Then
    ArtDir = Left(ArtNr, Len(ArtNr) - 3) + "000"
  Else
    MsgBox "Ongeldige Invoer, Artikel nummer bestaat uit 1 letter en 4 cijfers!", vbExclamation
    Exit Sub
  End If
  DirTemp = "C:\ECN\" + ArtDir + "\" + ArtNr + "*"
  MsgBox (DirTemp)
  Directory = Dir(DirTemp)

De variabele Directory moet dus de volledige directory naam worden.

Iemand enig idee hoe ik dit zou kunnen doen?

 

[OctaFish]

Het is niet zo handig om het plusteken te gebruiken in de samenvoegstring. Dit werkt al beter:
DirTemp = "C:\ECN\" & ArtDir & "\" & ArtNr & "*"
Kun je de directory naam niet helemaal opbouwen, i.p.v. met een * ?

 

[Aluth]

Het is niet zo handig om het plusteken te gebruiken in de samenvoegstring. Dit werkt al beter:
DirTemp = "C:\ECN\" & ArtDir & "\" & ArtNr & "*"
Kun je de directory naam niet helemaal opbouwen, i.p.v. met een * ?

Nee helaas gaat dat niet omdat er een klantnaam achter het artikel nummer staat, de verwerking gebeurd op artikel nummer en om nu een hele lijst erin te gaan maken met alle artikelen en klantnamen is ook niet echt een optie.

gedeelte wat er nu staat is van een voorbeeld via google met een Do Until loop maar deze werkt niet op directory namen, wel op filenamen.

 

[Aluth]

Heb het stukje inmiddels voor elkaar.

 MyText = "Staalband stempels door productie omgezet naar Laserfiles"
  ArtNr = TextBox1.Value
  If Len(ArtNr) = 5 Then
    ArtDir = Left(ArtNr, Len(ArtNr) - 3) + "000"
  Else
    MsgBox "Ongeldige Invoer, Artikel nummer bestaat uit 1 letter en 4 cijfers!", vbExclamation
    Exit Sub
  End If
  DirTemp = "C:\ECN\" & ArtDir & "\" & ArtNr & "*"
  Directory = Dir(DirTemp, vbDirectory)
  MsgBox (Directory)
  DirPath = "C:\ECN\" & ArtDir & "\" & Directory & "\"
  ECNNaam = DirPath & ArtNr & " ECN.doc"

Wel een extra variabele nodig maar het werkt. gaat vooral om dit stukje wat ik dus niet goed had: Directory = Dir(DirTemp, vbDirectory)