Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


22113 / 76734 ←次へ | 前へ→

【60006】ファイルサーバーにフォルダ作成時のアクセス権限
質問  ON  - 09/1/23(金) 12:10 -

引用なし
パスワード
   こんにちは よろしくお願い致します
下記でサーバー上にフォルダを作成できますが

参照権限しかない無い場合はフォルダが作成できません
ログインしなおして、編集権限のある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

4 hits

【60006】ファイルサーバーにフォルダ作成時のアクセス権限 ON 09/1/23(金) 12:10 質問
【60011】Re:ファイルサーバーにフォルダ作成時のア... neptune 09/1/23(金) 13:55 発言
【60014】Re:ファイルサーバーにフォルダ作成時のア... ON 09/1/23(金) 15:05 お礼
【60052】Re:ファイルサーバーにフォルダ作成時のア... ON 09/1/26(月) 9:51 発言
【60058】Re:ファイルサーバーにフォルダ作成時のア... neptune 09/1/26(月) 13:22 発言
【60064】Re:ファイルサーバーにフォルダ作成時のア... ON 09/1/26(月) 16:13 お礼

22113 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free