タイトル : ファイルサーバアクセス権 投稿日 : 2009/01/23(Fri) 16:59 投稿者 : ON
WINXP EXCEL2003 こんにちは VBAユーザーですが、よろしくお願いいたします サーバー上のフォルダーにサブフォルダを作成したいのですが ログイン者が参照権限しかない無い場合はフォルダが作成できません コード上で、 編集権限のあるユーザー名、パスワードを付加して フォルダを作成することは出来ますでしょうか 編集権限のある場合は下記コードで フォルダの作成は出来ています また、アプローチが違っているかも知れませんが 参照権しかないユーザーでログインし 編集権限のあるパスワード、ユーザー名で 'Shell ("net use \\サーバー名\共有名 パスワード /user:ユーザー名") で、ネットワークドライブの割り当てしてみましたが 手動でフォルダは開くことは出来ましたが、サブフォルダーを作成しようとすると フォルダ '新しいフォルダ' を作成できません。 アクセスが拒否されました。 と起こられてしまいました この辺知識が少ないです アドバイスよろしくお願い致します 'フォルダー作成(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 |