Mở folder rồi, nhưng đóng lại bằng cách nào ?

[giaosy]

Em sử dụng đoạn code này để mở một folder ra:

Sub Open_folder()
 Dim str_folder As String

 str_folder = "E:\folder Name" 
 Call Shell("explorer.exe " & str_folder, vbNormalFocus)
End Sub

nhưng không biết cách để đóng folder vừa mở ra này, các bác chỉ em cách đóng nó lại với.
Thanks

 

[ndu96081631]

Em sử dụng đoạn code này để mở một folder ra:

Sub Open_folder()
Dim str_folder As String
str_folder = "E:\folder Name"
Call Shell("explorer.exe " & str_folder, vbNormalFocus)
End Sub

nhưng không biết cách để đóng folder vừa mở ra này, các bác chỉ em cách đóng nó lại với.
Thanks

Bạn mở Folder ra đương nhiên phải có làm gì đó ---> Làm xong thì tự mình đóng lại (bằng tay) ---> Chẳng lẽ tạo 1 Command Button để đóng? So với nhấn dấu X thì cũng như nhau thôi

 

[giaosy]

To bác ndu: cái này em mở ra là để thông đường dẫn đến nhiều folder khác nhau (khoảng 15 folder ) tại một ổ mạng, sau đó cái tool chia file (lần trước hỏi bác ấy ) sẽ tạo thư mục mới và chia dữ liệu vào các thư mục đích đó.
Vấn đề là sau khi mở thư mục ra, lại phải tắt bẳng tay thì phiền phức (vì cái tool này không phải chỉ mình em dùng ) nên mới tìm cách để nó tự động đóng lại sau khi bị mở ra.
Rất mong ý kiến quý báu của các bác.
Thanks

 

[ndu96081631]

To bác ndu: cái này em mở ra là để thông đường dẫn đến nhiều folder khác nhau (khoảng 15 folder ) tại một ổ mạng, sau đó cái tool chia file (lần trước hỏi bác ấy) sẽ tạo thư mục mới và chia dữ liệu vào các thư mục đích đó.
Vấn đề là sau khi mở thư mục ra, lại phải tắt bẳng tay thì phiền phức (vì cái tool này không phải chỉ mình em dùng) nên mới tìm cách đóng nó lại sau khi mở ra.
Rất mong ý kiến quý báu của các bác.
Thanks

Chưa hiểu lắm ---> Mình tự mở ra thì mình tự tắt lấy ---> Không lý nào bạn mở Folder ra chỉ để nhìn
Ý bạn muốn sao? Tự cửa số ấy tắt à?

 

[giaosy]

to bác ndu: đúng là em tìm cách dùng vba tắt các folder đã mở ra tự động, nhưng mà em mở một lúc 15 folder nên muốn nó tự tắt đi. Nghiên cứu mãi cái lệnh close và các lệnh liên quan đến window mãi mà không ra.
còn việc mở cái này ra là chủ yếu để thông đường cho cái tool chia file nó save as các file đã chia vào một ổ mạng chứ tự mình thì không làm gì động đến các folder này cả.

 

[ndu96081631]

to bác ndu: đúng là em tìm cách dùng vba tắt các folder đã mở ra tự động, nhưng mà em mở một lúc 15 folder nên muốn nó tự tắt đi. Nghiên cứu mãi cái lệnh close và các lệnh liên quan đến window mãi mà không ra.
còn việc mở cái này ra là chủ yếu để thông đường cho cái tool chia file nó save as các file đã chia vào một ổ mạng chứ tự mình thì không làm gì động đến các folder này cả.

Tôi vẫn chưa hiểu lắm về dòng màu đỏ này ---> Bạn thử đưa 1 đoạn code "thông đường" gì đó lên xem thử
Tôi chỉ nghĩ đơn giản thế này:
- Mở ra phải có tác động bằng tay gì đó (chẳng hạn như chọn 1 thư mục con
- Còn nếu mở ra mà chẳng làm gì thì mở chi
- Giả sư bạn đã biết trước đường dẩn đến 1 folder nào đó thì cứ ghi vào code luôn ---> Mở hộp folder để làm gì
Hic... Khó hiểu quá ---> E rằng có file đính kèm của bạn mới có thể giải quyết triệt để

 

[giaosy]

....
If workbookExist <> clls.Value Then
  Set Nwb = Workbooks.Add
  For Each cl In cv
     If cl.Value = fileN And cl.Value <> "" Then
         dirN = Application.WorksheetFunction.VLookup(cl.Value, RcvN, 3, 0)
         With Nwb
           .SaveAs Filename:=[B][COLOR=Red]dirN[/COLOR][/B] & cl.Value & " " & _
                Right(Fname, 6) & "\" & "Custumer_order\" & Fname & " " & clls.Value
         End With
     End If
  Next cl
End If
....

cái biến dirN mầu đỏ nó xác định đường dẫn tới các thư mục tương ứng của từng nhân viên trên ổ mạng. mà để save as như thế thì phải mở thư mục tại ổ mạng ra trước nếu không nó sẽ báo lỗi, do đó em phải dùng đoạn code mở các thư mục đó ra rồi lại dùng tay đóng nó lại nên mới tìm cách đóng tự động (mở ra rồi đóng lại luôn ).