Welkom op PC Helpforum!
PC Helpforum helpt GRATIS computergebruikers sinds 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!
Hoe los ik dit op???
Door
Indy De Jong, in Archief Windows 10
-
Welkom op PC Helpforum
-
-
Leden statistieken
-
Gerelateerde inhoud
-
Door bennieboefHallo 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 -
Door filip van temsegoede middag,
Ik heb al enkele uurtjes gezocht maar het lukt niet.
Na defect van mijn ssd heb ik deze vervangen .
Het lukt mij echter niet om windows 10 opnieuw te installeren.
-De eerste poging gaf onmiddellijk aan dat de drivers ontbraken, maar deze zijn nergens te vinden.
Het is een xpg sx8200 pro van 512 G
De installatie wou gewoon niet starten.
-Na wat aanpassingen in de bios startte de istalatie wel maar liep ze al snel vast, ontbrekende bestanden op 23percent
msiz370-A pro
seag 2TB st2000DM006
intel core i5-8400
windows home (memory stick)
-
Door Mike9090Normaal als je een koptelefoon in je pc doet komt er bij geluid dat je speakers of koptelefoon kan gebruiken en per apparaat je geluidsniveau kan aanpassen. Bij mij staat er geen koptelefoon als ik mijn koptelefoon aansluit maar het geluid speelt wel door de koptelefoon. Als ik mijn geluid op 0 zet en dan mijn koptelefoon er in doe blijft hij op 0 en moet ik hem naar 100 zetten en als ik hem er uit haal weer naar 0 omdat ik mijn speakers niet wil gebruiken. -
Door SAHATHallo 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..
-
Door Mike9090Ik krijg soms uit het niets meldingen dat mijn windows 10 licensie binnenkort verloopt maar ik weet niet hoe ik het moet verlangen. Dit zie ik dan elke keer. Als ik op ga naar instellingen druk zie ik niks waar ik het kan verlengen.
-
