|
こんにちは よろしくお願い致します
下記でサーバー上にフォルダを作成できますが
参照権限しかない無い場合はフォルダが作成できません
ログインしなおして、編集権限のあるIDで作業することは出来ますが
コード上で、
ユーザー名、パスワードを付加して
フォルダを作成することは出来ますでしょうか
ご教授よろしくお願い致します
'フォルダー作成(C:\hoge_Folder、C:\hoge_Folder\form)
Sub AddNewFolder2(mk_fld As String, mk_SB_fld As String)
'On Error Resume Next
'参照設定:Microsoft Scripting RunTime
Dim myFileSystem As Scripting.FileSystemObject
Dim myFolder As Scripting.Folder
Dim MySubFolders As Scripting.Folders
Dim mySubFolder As Scripting.Folder
Dim MySubFolders2 As Scripting.Folders
Dim MySubFolder2 As Scripting.Folder
Set myFileSystem = New Scripting.FileSystemObject
Set myFolder = myFileSystem.GetFolder(mk_fld) 'ターゲットフォルダ
Set MySubFolders = myFolder.SubFolders
Set mySubFolder = MySubFolders.Add(mk_SB_fld) '追加サブフォルダ
'Set MySubFolders2 = MySubFolder.SubFolders
'Set MySubFolder2 = MySubFolders2.Add("Test2") '追加サブサブフォルダ
'Set MySubFolder2 = Nothing
'Set MySubFolders2 = Nothing
Set mySubFolder = Nothing
Set MySubFolders = Nothing
Set myFolder = Nothing
Set myFileSystem = Nothing
'On Error GoTo 0
End Sub
|
|