Vraag & Antwoord

Trashcan

[juli/aug 2004] U Vraagt

Anoniem
None
4 antwoorden
  • Geef hier uw mening over deze rubriek.
  • LS;
    Dit berichtje is voor Hans wols:
    Ik heb precies het zelfde probleem gehad met de usr router. De uiteindelijke oplossing bleek in de temperatuur te liggen. zonder deksel bleef het ding gewoon werken en met bleef het problemen geven. Uiteindelijk een kleine 12v fan in de deksel boven de voltage regulators geplaatst. Een rond gat uit de deksel gedremeld links achter aan de bovenkant van de deksel en het fannetje op het chassisdeel van de voeding aangesloten. Let op dat de fan de lucht eruit blaast!
    Zo werkt de router al meer dan een jaar zonder één keer in de fout te zijn geweest.
    Misschien werkt dit voor jou ook. Probeer daarom eens de router zonder deksel te laten werken.

    vriendelijke groet en succes!
  • Ik heb nog een mail gehad hierover, iemand die het probleem oploste met een statis IP adres op de WAN-interface.

    USR heeft mij echter bezworen dat dit niet het probleem was (ik heb er achteraan gebeld) en dat de fout die er in zat bij DHCP er uit zou zijn.

    Ik ga beide berichten nog even nasturen. Allemaal dank!

    mvrgroet Edmond Varwijk
  • [quote:29ecfffe24="Redactie Computer!Totaal"]Geef hier uw mening over deze rubriek.[/quote:29ecfffe24] :D Ga vooral zo door!
    Een korte macro als oplossing voor bestandsnamen in Excel:

    Dim CurrentRow As Integer

    Sub ListFiles()
    '
    ' ListFiles Macro
    '
    ' Keyboard Shortcut: Ctrl+Shift+M

    'Titel eerste kolom
    Worksheets("Sheet1").Range("A1").Value = "Map"
    'Titel tweede kolom
    Worksheets("Sheet1").Range("B1").Value = "Bestand"
    'Regelteller
    CurrentRow = 2

    ' =============================================
    'De volgende regel kan aangepast worden naar behoeven
    'True = Met subfolders False = Zonder subfolders
    '===============================================
    MakeFileList "c:\temp", False

    End Sub


    Sub MakeFileList(folderspec, subs)
    ' Jeroen Reelick 2004

    Dim fs, fdc, fldr1, fldr2, flc, fl

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set fldr1 = fs.GetFolder(folderspec)
    If subs Then
    Set fdc = fldr1.subfolders
    ' Ga door elke subfolder
    For Each fldr2 In fdc
    MakeFileList fldr2, True
    Next
    End If
    Set flc = fldr1.Files
    For Each fl In flc
    CurrentRow = CurrentRow + 1
    Worksheets("Sheet1").Cells(CurrentRow, 1).Value = fldr1.Path
    Worksheets("Sheet1").Cells(CurrentRow, 2).Value = fl.Name
    Next

    End Sub

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.

Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord