Dele en mappe fra VB

? med hvilke rettigheder. ?
? pågældende share. ?



\'kontrollere om en mappe slettet
Public Function ChkFilePath(Path As String) As String
On Error Resume Next
  If Dir(Path, vbDirectory) <> \"\" Then
    If (GetAttr(Path) And vbDirectory) = vbDirectory Then
      ChkFilePath = \"DIR\"
        Else
      ChkFilePath = \"FILE\"
    End If
      Else
    ChkFilePath = \"ERROR\"
  End If
End Function

Private Sub Form_Load()
  Me.Caption = ChkFilePath(\"c:\\autoexec.bat\\ha\\ha\") \'= ERROR
  Me.Caption = ChkFilePath(\"c:\\autoexec.bat\")  \'= FILE
  Me.Caption = ChkFilePath(\"c:\\windows\\system\") \'= DIR
  Me.Caption = ChkFilePath(\"c:\\windows\\\")      \'= DIR
End Sub

Hej sjh,

Så langt så godt...

Det skal være \"Alle\" der skal have adgang til at læse og skrive.

Mappen hedder xx\\Data og skal shares som BLData$
(Skjult share)

Kan du hjælpe her?

den fatter jeg ikke, skal det kun være file/dir der ikke er system file/dir ??????

He he... Jeg prøver lige igen.

Jeg har en mappe hvor i mit program gemmer forskellige filer og databaser..

Denne mappe skal når af et andet klient program via netværket. Klienten skal fx bruge stien \\\\Server\\BLData$\\Database\\data.mdb

Det er sharet BLData$, som jeg vil kontrollere er i orden. Hvis sharet er væk vil jeg lave det igen - fra programmet.

Så jeg har brug for noget kode der kan oprette mit share.

Giver dette mere mening.

Public Function ChkFilePath(Path As String) As String
On Error Resume Next
  If Dir(Path, vbDirectory) <> \"\" Then
    If (GetAttr(Path) And vbDirectory) = vbDirectory Then
      ChkFilePath = \"DIR\"
        Else
      ChkFilePath = \"FILE\"
    End If
      Else
    ChkFilePath = \"ERROR\"
  End If
End Function

Private Sub Form_Load()
  If ChkFilePath(\"C:\\Server\") = \"ERROR\" Then MkDir \"C:\\Server\"
  If ChkFilePath(\"C:\\Server\\BLData$\") = \"ERROR\" Then MkDir \"C:\\Server\\BLData$\"
  If ChkFilePath(\"C:\\Server\\BLData$\\Database\") = \"ERROR\" Then MkDir \"C:\\Server\\BLData$\\Database\"
End Sub

Jeg kan godt følge dig, men dette giver mig bare ikke en delt mappe....

What to do???

hvad mener du med \"delt\", er der Delete ???

er der Delete ??? = er det Delete ???

At dele (share) en mappe.... Ikke at slette..

MkDir \"\\\\computernavn\\c\\ny mappe\"

husk at dele C: som fuld

Jeg må beklage og fortælle, at du slet ikke er med på hvad jeg vil.

Jeg kan ikke bare dele c-drevet på en server.

Programmet kører på en server og skal kunne lave et share \"on the fly\" ud af en eksisterende mappe.

Hilsen

Michael

Ok så kan kan jeg ikke hjælpe dig mere. :-)

Tak for kampen <:-)

selv tak. :-)

måske er det ikke det du mener, men det kunne jo være.

http://support.microsoft.com/default.aspx?scid=kb;EN-US;q169398

Halleluja... Det ser sgu godt ud! Kan du ikke lige skrive det som et svar jeg kan godkende...

Kanon!

Svar:
måske er det ikke det du mener, men det kunne jo være.

http://support.microsoft.com/default.aspx?scid=kb;EN-US;q169398

Det hjalp faktisk ret meget!!! Så nu har jeg løsninger :-)

Det glæder mig at høre. :-)