tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルファイルサーバアクセス権
記事No13356
投稿日: 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

[ツリー表示へ]
タイトルRe: ファイルサーバアクセス権
記事No13357
投稿日: 2009/01/24(Sat) 13:58
投稿者オショウ
> WINXP
> EXCEL2003
>
> こんにちは 
> VBAユーザーですが、よろしくお願いいたします

  ShellでNET USE した場合、ログイン認証は正常終了しても
  権限がデフォルトユーザー側に残りましたっけ?
  Shellで起動されたプロセスは、NEt USE後、終わってしまう
  ので・・・

  VBAではやったことないので、正確には言えませんが、
  Shellで起動したプロセス中で全てのことを行わないと、
  いけないのでは?

  要は・・・
  NET USE xxxx   <=認証接続させる
  (フォルダを作成する)
  NET USE yyyy   <=接続を切断する

  と言うようなバッチファイルをEXCEL側VBAからShellする。

※ 間違っていたらすいません。

以上。

[ツリー表示へ]
タイトルRe^2: ファイルサーバアクセス権
記事No13368
投稿日: 2009/01/26(Mon) 09:20
投稿者ON
オショウ さん ありがとうございます

遅くなりました m(_ _)m

>Shellで起動されたプロセスは、NEt USE後、終わってしまう
>ので・・・
なるほどです

SHELLで作成後、権限の無いユーザーが好き勝手出来てしまうのも変?
みたいな気持ちがしていてモヤモヤしていたのですが理解できました

バッチファイルはあまり使用したことがないので
調べてみましたが、元々DOSコマンドの知識も少なく
(恥ずかしいですが、VBAが何とか使用できるレベルです)
いまいち??です
もう少し調べて、不明な点があれば、Qしたいと思います

少し時間がかかると思いますが、よろしくお願い致します。

[ツリー表示へ]