Parametrer l'onglet securité grace à Visual Basic
cs_saez
Messages postés
5
Date d'inscription
jeudi 5 février 2004
Statut
Membre
Dernière intervention
21 octobre 2005
-
20 oct. 2005 à 17:44
cs_saez Messages postés 5 Date d'inscription jeudi 5 février 2004 Statut Membre Dernière intervention 21 octobre 2005 - 21 oct. 2005 à 11:08
cs_saez Messages postés 5 Date d'inscription jeudi 5 février 2004 Statut Membre Dernière intervention 21 octobre 2005 - 21 oct. 2005 à 11:08
A voir également:
- Parametrer l'onglet securité grace à Visual Basic
- Visual basic 2005 - Conseils pratiques -Visual Basic / VB.NET
- If visual basic - Conseils pratiques -Visual Basic / VB.NET
- Visual basic portable - Forum VB.NET
- Visual basic commentaire ✓ - Forum VB.NET
- Passer en commentaire plusieurs lignes de code VBA rapidement ✓ - Forum Visual Basic
1 réponse
cs_saez
Messages postés
5
Date d'inscription
jeudi 5 février 2004
Statut
Membre
Dernière intervention
21 octobre 2005
21 oct. 2005 à 11:08
21 oct. 2005 à 11:08
Public
Function PutOffice()
Dim Fso
FichierOffice = CheminRessources & "" & username
Fso = CreateObject("Scripting.FileSystemObject")
If
Not Fso.FolderExists(FichierOffice)
Then
Fso.CreateFolder(FichierOffice)
Else
MsgBox("Fichier de ressources Office déja créé", 16, "Attention !")
End
If
If Err.Number <> 0
Then
MsgBox("probleme dans la création du repertoire Office " & FichierOffice)
End
If
End
Function
J'en suis la, il ne me manque plus que parametrer les autorisations sur le dossier, une idée ou une proposition?
Function PutOffice()
Dim Fso
FichierOffice = CheminRessources & "" & username
Fso = CreateObject("Scripting.FileSystemObject")
If
Not Fso.FolderExists(FichierOffice)
Then
Fso.CreateFolder(FichierOffice)
Else
MsgBox("Fichier de ressources Office déja créé", 16, "Attention !")
End
If
If Err.Number <> 0
Then
MsgBox("probleme dans la création du repertoire Office " & FichierOffice)
End
If
End
Function
J'en suis la, il ne me manque plus que parametrer les autorisations sur le dossier, une idée ou une proposition?
