Point til kabbak

et svar ;-))

og tak

Tak

du skal markere mit navn i boksen til venstre først inden du accepterer

jeg kan ikke se at du har fået point.

og spørgeren skal aldrig trykke på svar, kun hvis man tager point igen

nu er de kommet
tak

tak skal du have
det var vanskeligere en selve spørgsmålet

Jeg har et problem, og det ligner meget  med xcopy.
kan du??
jeg vil give dig 60 point.

de nedstående rutiner fungerer ikke

RetVal = Shell("attrib " & Chr(34) & "+A" & Chr(34) & Chr(34) & Sti & Chr(34) & "  /S")
retval = Shell("attrib " & " +A " & Chr(34) & Sti & Chr(34) & " /S")
retval = Shell("attrib " & " +A " & Sti & " /S")

attrip bruges kun på filer, så du skal have filnavne med, eller *.*

Microsoft Windows XP [version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.

Viser eller ændrer filattributter.

ATTRIB [+R | -R] [+A | -A ] [+S | -S] [+H | -H] [drev:][sti][filnavn]
[/S [/D]]

  +    Sætter et attribut.
  -    Nulstiller et attribut.
  R    Skrivebeskyttet-attribut.
  A    Arkiv-attribut.
  S    Systemfil-attribut.
  H    Skjult-attribut.
  [drev:][sti][filnavn]
      Angiver en fil eller filer, som attrib skal behandle.

/S    Behandler tilsvarende filer i denne mappe
      og alle undermapper.
/D    Behandler også alle mapper.

den commando kender jeg fra dos men ikke i VB6
er det muligt for dig at skrive syntax i VB6?.
Hvor jeg skal sætte attribut på Outlook mappe og undermappe nemlig "Sti"
jeg fårstår at undermappa er /S
Tak
Sti = "C:\Documents and Settings\Enric\Mis documentos\Data\Winword" 'Mappe der kopieres FRA
RetVal = Shell("attrib " & Chr(34) & "+A" & Chr(34) & Chr(34) & Sti & Chr(34) & "  /S")

RetVal = Shell("attrib " & Chr(34) & "+A" & Chr(34) & Chr(34) & Sti & Chr(34) & "\*.*  /S")

du sætter aktiv atribbut på filerne, er det det du vil.

ok

Private Sub Command1_Click()
Det nedenstående fungerer ikke
er dert noget jeg her gjort forkert?

Sti = "C:\Documents and settings\Enric\Configuración local\datos de programa\Microsoft\Outlook" 'Mappe der kopieres FRA
Command1.Caption = "Espera un moment...O==>S..Outlook..."
RetVal = Shell("attrib " & Chr(34) & "+A" & Chr(34) & Chr(34) & Sti & Chr(34) & "\*.*  /d")
Command1.Caption = "El Atributo esta hecho"

RetVal = Shell("attrib " & Chr(34) & "+A" & Chr(34) & Chr(34) & Sti & Chr(34) & "\*.*  /S")
heller ikke sådan

RetVal = Shell("attrib +A " & Chr(34) &  Sti & "\*.*  /S" & Chr(34) )

nej, den vil ikke
Enric

jeg opgiver, har ikke mere tid i dag

idag ?
eller ?

Nu harjeg selv fundet ud af det
men du få 30 point fordi du gav mig vejen til løsningen,er det i orden
det var den rutine som virker.....
Enric
RetVal = Shell("attrib -A " & Chr(34) & Sti & Chr(34) & "\*.*  /S")