・割り当てられたパスの取得方法 →ワイヤレスネットワーク表示 End Sub   Else また、他に解決法はありますでしょうか?, 起動するたびに切断・接続しなければネットできません 【ダイヤルアップ】 ネットワークドライブの割り当てを行うAPIは分かったのですが、それでは割り当てを要求するダイアログが表示されてしまいます。 私がやりたいのは、 OS:WINDOWSxp(ノートPC) Dim fs As New Scripting.FileSystemObject 具体的には、 けど、そうすると、接続が問題か…。, ご回答ありがとうございます。 ネットワーク接続で接続を修復したり、 targ = "C:\" よろしくお願いいたします。, こんにちは。 とはいえ、大変勉強になりましたので、BAとさせていただきます。.         Case DRIVE_CDROM:       strValue = strDrive & ":CD-ROM" WNetAddConnection2 ファイルい こんにちは、PC接続・ネットワーク・その他諸々ど素人の者です。 Set FS = CreateObject("Scripting.FileSystemObject") ・ネットワークのプロパティを見ても、 APIを使用する方法に変えてみたり、XP互換モードで起動したり、vista上でコンパイルしなおしたり、いろいろ試したのですが、だめでした。 1つのフォルダに100個ほどのエクセルファイルがあります。 無線LANでインターネット接続しています。 object にネットワークドライブでないドライブを指定すると、長さ 0 の文字列 ("") が返されます。 Debug.Print FsoDrive.ShareName '結果 TotalSize プロパティ : ドライブまたはネットワーク共有の総容量をバイト単位で返します。 Debug.Print FsoDrive.TotalSize '結果 254716932096 OS:XP エラー内容 FS.CopyFile "コピー元パス", strDrive & "\", True...続きを読む, VBから、ネットワークドライブにフォルダを作ろうとしたのですが、ネットワークドライブが割り当てられていない為、エラーが返ってきてしまします。 処理が途中で止まります。 ・ルーターを冷やす。 念のため、実行する端末には最新の Win98 用 スクリプトランタイムを入れてください。 ------------------------------------------------------------- (ワイヤレスネットワークの下位としてsonet接続があるのか・・・?) 私がやりたいのは、    '共有フォルダが確認できた時の処理(A) 0と偶数の要素番号にはドライブ名+コロン(:)が設定され、奇数の要素番号にはドライブ名に対応するパスが設定されます。         Select Case lngSts というのがあり、試そうと思いましたが「構成」ボタンが消えていて押すことができません。 For i = 1 To 31Sheets("" & i).Select 怖いことになってなければいいのですが・・・専門知識が皆無なので、どなたかアドバイスお願いいたします。  OS:Win2000及びWinXP Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True ・ネットワークドライブの自動割当・切断方法 (有効にする・無効にする)を行いたいのですが、 Else VB:6         Case DRIVE_RAMDISK:     strValue = strDrive & ":RAM ディスク" なぜか自動的にsonetにもワイヤレスネットワークにも接続してしまいます。         Case DRIVE_UNKNOWN:     strValue = strDrive & ":判別出来ない。" そこには締め切り前の予約は対象とありますが、仮に今月の残り全てに予約を入れた場合、それらも500ー1000ポイン... くら寿司のgotoイートのことで質問なのですが、大人2名、幼児2名で4000円も食べれないので、予約人数を3人にして3000円でも大丈夫なのでしょうか??, https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1228032137, http://www.winapi-database.com/String/Path/PathFileExists.html, http://www.winapi-database.com/File/File/FindFirstFile.html.     ' 存在した場合の処理 再起動しないとつながりませんが ファイルが存在しないと表示されてしまいます。 http://www.int21.co.jp/pcdn/vb/noriolib/vbmag/9802/winsock/ End If ダイヤルアップ接続:切断 MsgBox("?ファイルが存在しません!") Application.ScreenUpdating = False, たぶん、EXCEL独特の問題だと思うのですが、HTML の場合、すでに色の部分を表面上で使用しているので、それでメモリが占有させているのではないかと私は思っています。 If Dir$("\\パソコン名\共有フォルダ名", vbDirectory) <> "" Then パスワードの件、おそらく他に正解があると思いますが、 よろしくお願いいたします。, VB初心者の者です。 いいんじゃないでしょうか? 私はそれを聞いて最初は嬉しかったけど、だんだん不安になってきました。 Pr...続きを読む, 環境 というのがありますね。 回数はまだ2回ですが、こんなことってあるのでしょうか? Worksheets("A").Range("AB5").Value = Unit1 Else 関数では限界があり、VBAでなんとかしたいと思っています。VBAの知識がないわけではないのですが、 を使用 VBを別のユーザーとして起動しているということもないでしょうか?, ※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。 Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long   End If Next i vb6でネットワークドライブからファイルコピー os:xpvb:6上記環境にて開発中です。いま、uドライブにネットワーク上のサーバを割当て、そこからデータをローカルにコピーしたいと考えています。 Private Sub Unit1... 改行のあるセルを行ごとに分割したい。 数日前からワイヤレスネットワーク接続がよく繋がらなくなりました。 です。 ツリーを表示 以上、宜しくお願いします。, こんにちは。様子が見えてきましたね。         strDrive = Chr(i) & ":\" #6957-0 ネットワークコンピュータからLAN接続しているドライブを取得する 1999-10-08(金) 09:25 #21278-0 ドライブリストボックス 2001-06-11(月) 09:11 #2123-0 ネットワークコンピュータ、デスクトップの情報を取得するには 1999-09-24(金) 19:08 たまにブラウザを開くと、 インターネットを見たりするには支障ありませんでした。 あなたも誰かを助けることができる ホスト アプリケーション内のブックに含まれる HTML プロジェクトを更新する、というのがありますね。, はじめまして。 スタート→接続→すべての接続の表示 無線LANを使用しています。 JavaScriptが無効です。ブラウザの設定でJavaScriptを有効にしてください。JavaScriptを有効にするには, VB6でネットワークドライブからファイルコピー 何回も接続をしながらインターネットを見ている状況で面倒です。 Private Const DRIVE_FIXED       As Long = 3&    '固定ドライブ 無線LANルーター:メルコairstation, VBから、ネットワークドライブにフォルダを作ろうとしたのですが、ネットワークドライブが割り当てられていない為、エラーが返ってきてしまします。 BrowseInfo フォルダ選択ダイアログへの渡す構造体 なお、出来ればEXCELだけでなく、WORD,Pow... クラスモジュールについて教えて下さい。 ファイルのコピーに FileSystemObject を使っているようなので大丈夫とは思いますが、   ' エラーだった場合の処理 時間は1~5分くらいで切断されます。 ダウンロードしてExcelに取り込むというマクロを作ろうとして ネットワークドライブに設定して接続を保持させるとか。 どうも共有Pathだけだと一定時間置いておくとタイムアウトか何かで 接続が切れる事象が以前あったので私のところでは上記のようにしています。         Case DRIVE_REMOVABLE:   strValue = strDrive & ":交換可能なドライブ (フロッピーディスク等)" Sub Main() オープンシステム・WEPで接続を作ったのですが、 If Not FS.DriveExists(strDrive) Then プログラムの処理中だけネットワークドライブの接続を行い、処理が終わったら切断する、という設計を行うことがあります。, その際にどうやって実装したらよいかという話になりますが、候補として上がるのはWindows APIとnet useコマンドとWshNetworkです。, それぞれ一長一短ありますが、VBAでのネットワークドライブの制御はWshNetworkクラスを使うのが結果的に一番ラクだと思います。, WshNetworkはCreateObject関数を利用してこのような書き方を紹介されることが多いと思います。, しかしこの書き方では利用できるプロパティやメソッドを候補表示できません。しかし参照設定を行えばプロパティやメソッドを表示することが可能です。, WshNetworkの参照設定は、VBA画面→ツールメニュー→参照設定で「Windows Script Host Object Model」を選択します。これでWshNetworkクラスを利用できるようになります。, 以下はWshNetworkクラスのインスタンス変数の作成サンプルです。書き方は2通りあります。どちらでもいいです。1つ目のように1行で書いてもいいですし、2つ目のように変数定義とSetを別に書いてもいいです。厳密には2行に分けて書いた方がいいですが、詳細は「VBAでクラス変数の宣言とNewを1行で書いてよいか」をご参照ください。, WshNetworkクラスには複数のメソッドやプロパティが用意されています。その中でネットワークドライブの接続と切断と一覧取得を行うものは以下になります。. お客様の許可なしに外部サービスに投稿することはございませんのでご安心ください。, http://www.vbvbvb.com/jp/gtips/0851/gWNetAddConn …. 「多少扱える程度」なので、応用が効かず、 ちなみに、接続している時には、シグナルの強さは非常に強い(信号強度85%ぐらい)です。 ・coregaの無線LANブロードバンドルータ(型番:CG-WLBARGP) VB6.0をインストールしている環境でVB.NetをインストールしてもVB6.0は動かせるでしょうか. ・ ────────────────────────────── 指定フォルダを開く、マクロがあれば教えて頂けないでしょうか。 ネットワーク上にある共有フォルダ有無をチェックするプログラムを作ろうとしています。 ネットワーク系に詳しい方お知恵をお貸しください。, フレッツADSLで、無線LANを利用しています。 Const strDrive = "Z:"    誰かの疑問に誰かが答えることでQ&Aが出来上がり、後で見に来たたくさんの人の悩みの解決に役立てられています。   Resume ExitProc 毎回「このネットワークが範囲内にあるときは接続する」    '共有フォルダが確認できなかった時の処理(B) http://www.ken3.org/vba/backno/vba120.html, エクセルにて 接続ができても、時間が経つと接続できなくなります。 ・無線LANアダプター(型番:CG-WLCB54GL) range("A1").select     Next i ・どこを確認しても切断をしているようには見えつけられません。 VB6.0で教えてください。 Set WshNet = Nothing Dim targ As String