Hallo Allemaal,

Mijn macro zoekt in een windows map op de volgende manier : "prd." + <cell value> + ".dld"
Het probleem is dat er niet wordt gezocht in inderliggende bmappen

Hier de macro :

Option Explicit

Sub Find_DLD()
Dim AckTime As Integer, InfoBox As Object
Dim iRow As Integer ' ROW COUNTER.
Dim sSourcePath As String, currentpath As String
Dim sDestinationPath As String
Dim sFileType As String
Dim sFileType1 As String

Dim bContinue As Boolean

bContinue = True
iRow = 2

' THE SOURCE AND DESTINATION FOLDER WITH PATH.
sSourcePath = "S:"
sFileType = ".dld" ' TRY WITH OTHER FILE TYPES LIKE ".pdf".
sFileType1 = "prd."


' LOOP THROUGH COLUMN "B" TO PICK THE FILES.
While bContinue

If Len(Range("E" & CStr(iRow)).Value) = 0 Then ' DO NOTHING IF THE COLUMN IS BLANK.
Set InfoBox = CreateObject("WScript.Shell")
AckTime = 1
Select Case InfoBox.Popup("Klaar.", _
AckTime, "Hieperdepiep", 0)
Case 1, -1
Exit Sub
End Select
Else
' CHECK IF FILES EXISTS.

If Len(Dir(sSourcePath & sFileType1 & Range("E" & CStr(iRow)).Value & sFileType)) = 0 Then
Range("F" & CStr(iRow)).Value = "Geen kantprogramma"
Range("F" & CStr(iRow)).Font.Bold = True
Else
Range("F" & CStr(iRow)).Value = "Kantprogramma bestaat!"
Range("F" & CStr(iRow)).Font.Bold = False

End If
End If
iRow = iRow + 1 ' INCREMENT ROW COUNTER.
Wend
End Sub

Het zou fantastisch zijn al iemand deze code zo kan aanpassen dat de macro ook in de onderliggende mappen van s:\ gaat zoeken.

Alvast bedankt voor jullie hulp.
 
Bijlage :  bestand met macro.
Controle dxf + kantprogramma.xlsm

Goedemiddag PC Helpforum,
 
Voor het werk heb ik vraag gekregen om naar een goede laptop te gaan kijken waar wij als engineers op kunnen werken.
Tot nu toe maken wij eigenlijk altijd gebruik van HP workstations. Echter is dat vanwege de vele bedrijfsbezoeken niet handig.
 
Voornamelijk draaien wij 3D modeleer software van Creo ellements Direct moddeling.
En wat bijbehorende modules.
 
De Workstations zijn opgebouwd met de volgende onderdelen.
 
- Intel Core i7-6700 CPU @ 3.4 ghz
- 16gb werkgeheugen
- NVIDIA Quadro M2000
 
Deze pc's werken eigenlijk al te langzaam voor het pakket en zijn dus niet voldoende.
 
Nou kwam een collega van met met het volgende aanzetten:
 
https://www.alternate.nl/html/product/1564264?utm_source=GoogleShopping&utm_medium=cpc&utm_campaign=GoogleShopping_Notebook&utm_term=PL6AZNAE&gclid=Cj0KCQiAtf_tBRDtARIsAIbAKe019QNv3uNBHdZta0n_OSUvh3wursBU4oLEvz2U_6iZRaWg-lz7yc4aAiKJEALw_wcB
 
Het grootste voordeel is hierbij dat we 2 schermen zouden hebben ( 1 voor 3D omgeving en 1 voor database etc) Echter kan je ook kiezen voor een laptop inclusief een los 2de scherm.
 
Het budget is maximaal 3600 euro per laptop. Echter zou het fijn zijn als we goedkoper uit komen. :D
 
Ik hoor graag jullie aanbevelingen.
 

Hallo allemaal, ik ben nieuw hier.
 
Ik zou graag mijn contextmenu willen opschonen (zie bijlagen), alleen weet ik niet hoe ik dit moet doen.
Zo zou ik bijvoorbeeld graag "Kopiëren naar", "Snelkoppeling maken",  "Verwijderen" en "Op apparaat weergeven" uit mijn file context menu willen halen. Niet alleen de locaties die de pijltjes weergeven, maar de kopjes zelf ook.
Uit mijn explorer context menu zou ik graag "Delen met" wilen verwijderen.
Ook, indien mogelijk, dat een nieuw tekstdocument aanmaken (via explorer context menu) niet via "Nieuw --> Tekstdocument" gaat maar dat "Tekstdocument" gewoon in (explorer) contextmenu staat onder de andere opties.
 
Ik weet bijna zeker dat dit mogelijk is, maar hoe weet ik niet..
 

 

 

Hallo iedereen,
sinds een dikke week heb ik problemen met de tekst die, al dan niet, verschijnt op mijn scherm tijdens het gebruik van internet (browser?).
Bij gewone programma's (word, excel, verkenner, enz.) heb ik dat probleem niet.
In de bijlage kunnen jullie zien wat mijn probleem is.
Alvast bedankt voor jullie, hopelijk nuttige, feedback.
Mvg Philip
Schermproblemen.docx

Ik weet niet of dit ermee te maken heeft maar sinds ik mijn laptop op mijn stagebedrijf heb gebruikt (met de wifi daar) heb ik dit probleem. Ik probeer de scannen, en krijg dan de melding dat het programma is uitgeschakeld. Hopelijk kunnen jullie helpen en wordt het niet erger. Ik gebruik Windows 8.1, 64.