Delete unwanted subfolders

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VBscripts
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - Enumerate Directory listings I would like to run a script or batch file that will:\ for each directory go down two directory levels and print the full path (\\servername\dir1\dir2\dir3) where dir3 matches a specific pattern.... This is how my file servers store user directories and I will need to populate the HOME FOLDER field in AD. Thansk Carl Tag: Delete unwanted subfolders Tag: 160557
  - 2
    - Windows 2003 and WMI question Hello All, I have a script that utilize wmi to get the local Administrators group name in different OS languages (Administrators group names differently in different language). The script works fine with Windows 2000/XP. However, the WMI call failed without a trace when running on Windows 2003 box (english, german, sweden, neitherland so far...). Does Windows 2003 make WMI calls different than 2K/XP? Any help would be greatly appreciated. Here is a portion of my script which do the above mentioned. sComputer = "." sGroupSID = "S-1-5-32-544" ' Well Known SID of the local Administrators group ' --- THIS IS WHERE IT FAILED ON WINDOWS 2003 --- Set objWMIService = GetObject("winmgmts:\\" & sComputer & "\root\cimv2") If Err.Number <> 0 Then msgbox Err.Number msgbox Err.Description End If Set colItems = objWMIService.ExecQuery ("Select * from Win32_Group WHERE SID = '" & sGroupSID & "'") If Err.Number <> 0 Then msgbox Err.Number msgbox Err.Description End If For Each objItem in colItems sAdminGrp = objItem.Name ' Get local Administrators group name Wscript.Echo "Name of the local Administrators group: " & sAdminGrp Next Tag: Delete unwanted subfolders Tag: 160556
  - 3
    - Script to set Archive location in Outlook 2003 Does anyone know a way to set the default Archive location in Outlook 2003? Group policy allows you set the limits but not the location. We want to change this from the local profile to a network location. Right now the only way to do it is to manually configure each machine. thanks roger Tag: Delete unwanted subfolders Tag: 160555
  - 4
    - What I'm I doing wrong? I get error "SWbemServicesEx: Invalid object path" when I run the script below. Can anyone help me, what I'm I doing wrong. should I be using collections instead of of a single instance? strComputer = InputBox ("Enter Computer Name","Local or remote",".") strHotFix = InputBox ("Enter Hotfix Number","Local Or Remote Machine",".") Set objSWbemServices = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set ObjHotFix = ObjSWbemServices.Get("Win32_QuickFixEngineering.HotFixID=strHotFix") If ObjHotFix = False Then WScript.Echo "HotFix is not Installed" Else WScript.Echo "HotFix is installed" End If Tag: Delete unwanted subfolders Tag: 160547
  - 5
    - Wait for 10 sec in scripts Sorry for the cross post but I don't know which is the right group. I need to halt the execution of the vbscript for 10 sec till the application launched becomes ready to accept further commands. It is shell commands to be run in dos mode. Is it possible with vbscripts? Or by some other way? Regards, Shetty. Tag: Delete unwanted subfolders Tag: 160544
  - 6
    - Form textarea doesn't migrate to next page with other form elements User types text into RFO.asp <body> <textarea name="special_inst" id="special_inst" cols="50" rows="6"></textarea> </body> All other fields are passed to the next page except this one in the neworder.asp <body> <span class="regSoft"><%=Request.Form("special_inst")%></span> </body> I don't see a problem...all the other fields are going fine? Any help? thanks Abby Tag: Delete unwanted subfolders Tag: 160543
  - 7
    - HTMLEncode gives incorrect unicode Hi I have a strange problem From exchange server I get the data to ASP page using the webdav technlogy. There are mail which contains Western Europian characters. These western Europian characters returned properly to ASP pages. In one server(IIS) when I do Server.HTMLEncode of that europian characters it gives me the wrong unicode and also it displays some junk charecters , but the same code on the other server gives me proper unicode and displays the characters properly. I have found a work around for that using ADODB.Stream and reading the charecters by setting charset property to "utf-8". After that it works properly. But its a problem in only one server(IIS), the other one gives properly. Is there any setting needs to be done at IIS. Any answer on this will be highly appreciated Thanks Afzal Tag: Delete unwanted subfolders Tag: 160535
  - 8
    - Selecting a value in a list box. Strange IF THEN problem. Hi, I have a simple list box on an a ASP page which is populated by a recordset named rsThemes. Depending on from where the user browses into the page the Selected value is either taken from a field in a recordset named rsChosenEvent (Method A) or from passed value in the URL named txtTheme (Method B). Method A works perfectly, but for some reason that I just cant find Method B will not work. If I simply response.write("txtTheme") I get the correct value but if I try to use that value in an IF statement it just wont work. Can anyone see why? I'm absolutely baffled. Thanks, Luke. <select name="txtTheme"> <option>Select Theme</option> <% While (NOT RsThemes.EOF)%> <option <% ' Method A %><% If Not rsChosenEvent.EOF Or Not rsChosenEvent.BOF Then %><% If (RsThemes.Fields.Item("ThemeID").Value) = (RsChosenEvent.Fields.Item("Theme").Value) Then Response.write("SELECTED ") %><% End IF %><% ' Method B %><% If (RsThemes.Fields.Item("ThemeID").Value) = (Request("txtTheme")) Then Response.write("SELECTED ") %> value="<%=(RsThemes.Fields.Item("ThemeID").Value)%>"><%=(RsThemes.Fields.Item("ThemeName").Value)%></option> <% RsThemes.MoveNext() Wend If (RsThemes.CursorType > 0) Then RsThemes.MoveFirst Else RsThemes.Requery End If %> Tag: Delete unwanted subfolders Tag: 160533
  - 9
    - Encoding problem in asp Is there any method to convert &xxxx; back to a character?? Thx for help Tag: Delete unwanted subfolders Tag: 160531
  - 10
    - Determining if ActiveX is enabled Is there a property in the DOM or the Request object that indicates whether or not the user's browser has been set to enable, disable, or notify if an ActiveX component is required on the viewed page. I'm using DHTML and I want to use one of two different style sheets based on this setting. Thanks in advance. Tag: Delete unwanted subfolders Tag: 160529
  - 11
    - GetObject("WinNT://Machinename") Hi, I run the code GetObject("WinNT://Machinename") on a windows 2000 pro workstation and it works fine. However, when i run it on a windows NT 4.0 Server it doesn't recognise it. Is there another (or equivalent) way of doing the same thing. I plan to list all of the Server's groups. Thanks, Jesse Tag: Delete unwanted subfolders Tag: 160528
  - 12
    - WinHttpRequest question of POST.....asyncronous mode... I find that there are a few samples on the asyncronous mode. I have problem in code when is in asyncronous mode. I'm not so sure what should be put in my Function ManageStateChange(). In fact I have a similar code in VB and actually I'm doing some sort of conversion from VB to VB script. My code is as follows (VB script). Set objWinHttp = Server.CreateObject("WinHttp.WinHttpRequest.5") objWinHttp.Open "POST", "http://localhost/bankislam/Trx.asp", true objWinHttp.onreadystatechange = ManageStateChange objWinHttp.Send objReceive.xml if Err.Number = 0 Then Response.Write( "Status: " & objWinHttp.Status & " " & objWinHttp.StatusText) strHTML = objWinHttp.ResponseText else Response.Write Err.Description end if Set objWinHttp = Nothing Function ManageStateChange() select case (objWinHttp.readyState) case 2, 3: ===> put what code??? case 4: ==>> put what code, which should have same meaning in my VB code exit function end select End Function My code in VB. objXH.Open "POST", m_URL, True objXH.send ObjDoc.XML objTimer.Interval = 60 objTimer.Enabled = True ===>> do we need to put timer in VB script? nTimeCount = 0 While nTimeCount < 60 If objXH.readyState = 4 Then ==>>>> How to do this in Vbscript? GoTo exitloop End If DoEvents ===>>> and this??? Wend objTimer.Enabled = False If nTimeCount = 60 Then MsgBox TIME_OUT '("Time out") End If I'm not sure how to handle the asyncronous mode in VB script, as we do not have timer and Events, am I right? Can someone pls edvise me.....thanks. Tag: Delete unwanted subfolders Tag: 160525
  - 13
    - Inventory I have an access database that has our inventory. There is one table that has the computer name and the memory column. I've also created a script in the past to read the computer name from a file, get inventory from it (like hd size and total memory) and write it to a file. Well, what I would like to do now, is use the access database in a similar fashion. Instead of reading from a file, I would like to read from the computer name column and update the memory column. The part I'm having trouble with is getting the computer name from the DB. I don't have a clue how to do it. Thanks in advance, RK. Tag: Delete unwanted subfolders Tag: 160523
  - 14
    - Power management settings I am trying to find a script to turn the power options off in the control panel. Is there a way to do that with a script? Thanks Tag: Delete unwanted subfolders Tag: 160518
  - 15
    - Getting NIC Info. Anyone know how to get access to bytes sent / received for a nic? If you can't do that in VBS (Not WSH) is there a com that anyone knows of ? Thx in advance everyone. Tag: Delete unwanted subfolders Tag: 160514
  - 16
    - Getting NIC Info. Anyone know how to get access to bytes sent / received for a nic? If you can't do that in VBS (Not WSH) is there a com that anyone knows of ? Thx in advance everyone. Tag: Delete unwanted subfolders Tag: 160513
  - 17
    - permission w2k staff, necessary to write one script that he makes the following one, in a machine W2K: - to remove permission of "All" of the root of unit "C:"; - to add to total permission for the group "administrators"; - to add to partial permission for the group "userss" any aid is obliged coming well Tag: Delete unwanted subfolders Tag: 160512
  - 18
    - Exposing Object Models I was wondering if anyone knows the object models for the following, or if they are even visible. Adobe Acrobat Reader v 6.0 PhotoEd Winzip QuickTime Player Paint WordPad i can use obj.run, but I was hoping to keep the script in line with the Office products and use: set objXL = CreateObject( "Excel.Application" ) Thanks Tag: Delete unwanted subfolders Tag: 160509
  - 19
    - Remotely running a program from the Command Line Is it possible to run Wscript.Shell remotely. I am running a .exe to change the Windows Update server. I would access them through the IP Addresses. I have a code that runs it on the computer. Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run sFile 'where sFile= c:\susconf.exe servername Another Question is there anyway to copy to the .exe to another computer without having a share name? Angela Tag: Delete unwanted subfolders Tag: 160497
  - 20
    - Win key with Sendkeys How can I send the WIN key from a Sendkeys statement? I want to try the Win+M function. Sandrobi Tag: Delete unwanted subfolders Tag: 160493
  - 21
    - Loading the ITC control in script Hi, I have following question. Loading the ITC control in script I am using XMLHTTP (which I load dynamically from within client side script on an HTML page) to do file transfers. However, I need to use some of the capabilities of the Internet Transfer Control (MSINET.OCX). How can I load this DLL dynamically (from within JScript or VBScript) and call its functions? Any help is greately appreciated...... Thanks Mayur Tag: Delete unwanted subfolders Tag: 160490
  - 22
    - use fso to create text file each time form is reposted Hi All. I have an asp page that creates a recordset and displays it in a table. At the end of my asp page is script that uses the FileSystemObject to create a text file. I want to delete and recreate the text file each time the user changes the recordset data. Here is part of the code I'm using: Set fs = Server.CreateObject("Scripting.FileSystemObject") If fs.FileExists (fileName) Then fs.DeleteFile (fileName) End If Set MyFile = fs.CreateTextFile(filename, True) The text file never changes after the first form post. Thanks in advance for any help, Andy Tag: Delete unwanted subfolders Tag: 160486
  - 23
    - Making IE Internet Option setting changes using VBScript Hello: I am a VBScript newbee and I am trying to put together a script to make some changes to the IE Internet Option settings: Tools>Internet options> General Tab>Temporary Internet Files>Settings>select option "Every visit to the page" and make sure "Amount of disk space to use" is set to 1mb. General Tab>Temporary Internet Files> Click the "Delete Files" button and "Delete Cookies" button. Security Tab>Trusted Sites> verify a website and if it is not there add one Security Tab>Trusted Sites> and enable Download signed ActiveX controls enable Download unsigned ActiveX controls enable Initialize and script ActiveX controls marked as safe This is in a W2K environment. Any suggestions? Thanks Tag: Delete unwanted subfolders Tag: 160485
  - 24
    - How to find the first "," (comma) in a row?? Hi all, I have a question about vbscript. This is my code: -------------------------- searchGroups = rs.fields("member") Response.Write("<td>") If Not IsNull(searchGroups) then For i = 0 to UBound(searchGroups) Response.Write("" & (Mid(searchGroups(i),4))) Response.Write("<br>") Next End If -------------------------- This code returns the following "<name>,OU=<OUname,DC=xxxxxx,DC=xx" The problem is that I only want the <name>, or the real problem is that the number of characters is different in the <name> field. The name field is both username and group name. Is there a way to find the first "," (comma) in the row? Thanks in advanced. Fredrik Tag: Delete unwanted subfolders Tag: 160483
  - 25
    - how to rename a user account inNT4.0 domain via sripct or batch? I have to rename a few hundred users, before migrating to W2K3 domain, but i don't know how to do this in a sript or batch. The NET USER command doesn't have a parameter for renaming. Any ideas?? Thanks in advance Tag: Delete unwanted subfolders Tag: 160482
- Next
  - 1
    - collecting more than 24 hours in seconds and converting it to hh:mm:ss Hi All, I got this function from here to convert seconds into hh:mm:ss, the only problem I have is that sometimes my number of seconds "91800: goes over 24 hours thus I loose the first 24 h and get returned 01:30:00, I am using this function in an ASP page. Any ideas on how I can get round my problem? Cheers Mark Function GetTime(A) Dim cSEC if A > 0 Then cSEC = A Dim strADD strADD = DateAdd("s",cSEC,Date()) Dim intHRS intHRS = DatePart("h",strADD) intHRS = Right("0" & CStr(intHRS),2) Dim intMIN intMIN = DatePart("n",strADD) intMIN = Right("0" & CStr(intMIN),2) Dim intSEC intSEC = DatePart("s",strADD) intSEC = Right("0" & CStr(intSEC),2) ConHHMMSS = intHrs & ":" & intMin & ":" & intSec else ConHHMMSS = "00:00:00" End IF GetTime = ConHHMMSS End Function Tag: Delete unwanted subfolders Tag: 160481
  - 2
    - Delete unwanted subfolders Here is what I have figured out so far.. Set oFS = CreateObject("Scripting.FileSystemObject") Set oFolder = oFS.GetFolder("C:\Somefolder\Programs\") For Each oFolder In oFolder.SubFolders WScript.Echo oFolder.name If oFolder.name <> "FolderA" Then End If If oFolder.name <> "FolderB" Then End If If oFolder.name <> "FolderC" Then ' Else filesys.DeleteFolder "c:\Somefolder\Programs\" & oFolder.name End If Nex - Shadrac ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: Delete unwanted subfolders Tag: 160480
  - 3
    - Delete unwanted subfolders Well.. I am totally lost in the logic of a project, maybe someone ca help me... I have a folder with 3 or more subfolders. I want to keep only 3 that know should be in the folder. TopFolder - FolderA - FolderB - FolderC Delete every other folder that is not A, B, or C. What I know about scripting, I am going to have to enumerate what is i the folder, then do if statements to say if not A, B, or C then delete Can someone help? Is my logic correct and how would I begin - Shadrac ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: Delete unwanted subfolders Tag: 160479
  - 4
    - Windows 98 Computer Name Is there anyway using VBscript to programmatically set the computer name on a Windows 98 system? Jim Gregg Tag: Delete unwanted subfolders Tag: 160474
  - 5
    - Running VBS (VB Scripts) from cmdlines.txt 2003 server Sorry for the cross post...I am at a loss with this one. I have some VB scripts that I use to patch systems while building them. I run it from cmdlines.txt to put the patches down in text mode setup. The scripts work great on Windows 2000. I am putting together a builds of 2003 server and the scripts are not running completely. Here are 2 samples: With this one I am trying to see what services are running for troubleshooting... Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set colRunningServices = objWMIService.ExecQuery("Select * from Win32_Service") For Each objService in colRunningServices msgbox objService.DisplayName & VbTab & objService.State Next I can't get the collection of services... This is the section of my patching script that tanks... const HKEY_LOCAL_MACHINE = &H80000002 Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:S tdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\AccPatchLevel" oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath strValueName = "DisplayName" strValue = "Anadarko Canada Corporation - Patch Management" oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue strValueName = "DisplayVersion" strValue = strPatchLevel oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue For some reason, I can't create the registry key. There are also a couple of home grown exe's that don't behave either. I have tried to disable the IE Hardening for all users and still no joy. Is any one else having any issues like this? Is thee any way to fix this behavior? Thanks, Dan Tag: Delete unwanted subfolders Tag: 160470
  - 6
    - Regular Expressions : AlphaNumeric Requirement Problem Hello, We're TRYING to write a regular expression to enforce this password rule: - Must be 7-15 characters - Must contain only [a-zA-Z 0-9] - Must have at least one alpha and one numeric in any order But we're not coming up with any one expression that solves all those problems, but know it's possible. Any helpers? THANK YOU! /bw wetchman at hotmail dot com Tag: Delete unwanted subfolders Tag: 160469
  - 7
    - Batch file to copy large files I have a server that creates a large (1.7G) data file that needs to be moved to a production server for analysis every morning. Every morning I manually copy it over. Granted it only takes a few minutes but if I get busy, it may be a few days until I can get to it. I tried writing a batch file to copy the file across the network to the storage server but it always failed. Can anyone give me some suggestions? Tag: Delete unwanted subfolders Tag: 160465
  - 8
    - How to get the newest file in a Directory? Hey guy's I need to get the latest file in a directory. Backup softwar creates a file called backup01.log the second file backup02.log. I onl need to check the lastone. Then I need to email to a pop3 account. Thn - ilisof ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: Delete unwanted subfolders Tag: 160464
  - 9
    - read exchange address book hello NG how can i read the exchange addressbook and store those addresses in a textfile or in a access database? has anybody a idea? thanks markus früh Tag: Delete unwanted subfolders Tag: 160463
  - 10
    - Retreive the SID of all computer accounts in AD Hi I would like to retreive the SID of all computer accounts I have in my AD. How can I get that information using VBScript? Regards Rickard Tag: Delete unwanted subfolders Tag: 160462
  - 11
    - Download a file without prompt ? Hi: I have link on my web page, when the user clicks on the link, a file is dowmloaded. But there is always a prompt box shows up on use's machine asking where the file should be saved. In my special case, I want the file to be saved always on user's C:\WUTemp directory. Is there a way to write the script so that a default download location is provided (C:\WUTemp) which allows a file to be downloaded without prompt? Thanks In Advance Polaris Tag: Delete unwanted subfolders Tag: 160457
  - 12
    - configure power mgmt options I am interested in creating a script to configure power management options for a managed set of laptops running windows xp. To begin with I am specifically interested in adjusting the settings within the Alarms tab of the Power Options control panel. Is there a feasible way to use vbscript and WMI to adjust the alarm levels and alarm actions of the Power Options control panel? Any code examples would be greatly appreciated. Thanks Brent Green greendotbrent@mayodotedu Tag: Delete unwanted subfolders Tag: 160456
  - 13
    - VBscript used to install software Hi, I would like to find out if it is possible to use VBscript to install something as simple as Acrobat Reader to completely automate the installation? Which methods would be best suited for this task and if possible, where could I find examples? I have been reading through some scripting books but they are always geared towards administration only. Our company has been using Auto IT but that has its limitations. -- Thanks, Rob Tag: Delete unwanted subfolders Tag: 160455
  - 14
    - Vb script to move a folder. I need a simple script that will check for the existance of a "Favorites" folder in a users H: drive. If its not there copy the one from C:\Documents and settings\%username%. Any help would be great!! Tag: Delete unwanted subfolders Tag: 160451
  - 15
    - UserName I am running an inventory script remotely to Win98 and Win2k machines. I am getting the info I need except for 1 thing. I am calling to the username to be placed in with the information by using Dim strUName: strUName=WshNetwork.UserName the problem is, it returns MY logon ID not the user currently logged in at the remote machine. any suggestions for getting the currently logged on user? Thx Tag: Delete unwanted subfolders Tag: 160450
  - 16
    - LDAP I need help in creating a script that will make a LDAP query to a Netscape directory server. I can get it to work using LDP, but would like to know how to do this using VBS. I know the server name and even the base DN to search from and the filter string. Can someone show me how to put this into a VBS file? Tag: Delete unwanted subfolders Tag: 160446
  - 17
    - file and date controls I asked myself if script in a position to copying file with date and hour most recent in an other directory, and subsequently to send it in attached via email. tnx andrea Tag: Delete unwanted subfolders Tag: 160439
  - 18
    - Wrapper for Common Dialogue (File Open, File Save) component I would like to integrate a component into an .hta project which allows me to use the common dialogue component (specifically the File Open, File Save components) reliably in my project. This would mean the common dialogue component having to be wrapped inside another component for distribution together with my project. There are several such components on the internet, but all that I have found have been written in VB and therefore need the VB run time libraries to be deployed with the distribution (just in case the target system does not have the VB libraries installed). Is any one aware of a component (preferrably free!) which I could use, which hasn't been written in VB? R Tag: Delete unwanted subfolders Tag: 160436
  - 19
    - ADSI I'm having a problem which is tearing my hair out. I can bind to both objects fine.. but when I try to set the distinguishedName of one object as the "manager" of another.. it doesn't work! Help! Set objUserManager = GetObject("LDAP://" & dn) Response.Write "Error number binding to Manager: " & Err.number & "<BR>" Response.Write "objUserManager.Get: " & objUserManager.Get("distinguishedName") ManagerDN = objUserManager.Get("distinguishedName") objUser.Put "manager", ManagerDN objUser.SetInfo Response.Write "Error number for manager write: " & Err.number & "<BR>" Username is:JamesaDCN=acronzd,OU=Users,OU=JER,DC=COM Error number binding to Manager: 0 objUserManager.Get: CN=acronzd,OU=Users,OU=JER,DC=COMError number for manager write: -2147016694 Error adding user parameters Error number:-2147016694 Tag: Delete unwanted subfolders Tag: 160435
  - 20
    - VBScript .Replace method Question (Close but no cigar) I am trying to simply remove all contents of this file from the <META NAME="PROBLEM" CONTENT="How to: Quickly determine existing text formatting in Word 2003. "><META NAME="TITLE" CONTENT="Determine existing text formatting "><META NAME="DESCRIPTION" CONTENT="Click the mouse in the part of the document where you need to determine the text format. Press Shift+F1. The 'Reveal Formatting' task pane appears. "><META NAME="PROBLEM_TYPE" CONTENT="How To Solution"><TITLE>Determine existing text formatting </TITLE><link REL="stylesheet" TYPE="text/css" HREF="images/common.css"></head><script>function popup(image,width,height){window.open(image,'popup','width='+width+',height='+height+',scrollbars=yes');}</script><body><img src="images/logo.gif" border="0" alt="RightAnswers, LLC"><br><table cellpadding=2 cellspacing=0 border=0 width=100%><tr><td colspan=2><HR></td></tr><tr><td class="solutiontext"><span class="header1">Path to Solution:</span></td><td class="solutiontext"><span class="regular1_bold">Self-Service Library\\Desktop Applications\\Microsoft Word 2003\\Documents\\Document Basics\\Formatting\\ </span></td></tr><tr><td colspan=2><HR></td></tr><tr><td colspan=2><span class="header1">How to: Quickly determine existing text formatting in Word 2003.<br><br></span><br></td></tr><tr><td class="solutiontext"><span class="regular1_bold">Solution:</span></td><td><span class="regular1"><ul>Click the mouse in the part of the document where you need to determine the text format. Press Shift+F1. The 'Reveal Formatting' task pane appears.<br></ul></span></td></tr><tr><td class="solutiontext"><span class="regular1_bold">Details:</span></td><td><span class="regular1"><ul><br></ul></span></td></tr><tr><td class="solutiontext"><span class="regular1_bold">Symptoms:</span></td><td><span class="regular1"><ul>How to: Quickly determine existing text formatting Word 20</ul></span></td></tr><tr><td colspan=2 class="addcenter"><hr></td></tr></span><br></td></tr></table><hr class="big"><span class="smalltext1">Copyright &#0169 2001-<script language="JavaScript">var now = new Date();document.write(now.getFullYear());</script> by RightAnswers, LLC. Subject to the <a href="images/TermsOfService.htm" target="_new" class="smalltext1">Terms of Service</a> set forth in the end-user license agreement. <a href="images/copyright.htm" target="_new" class="smalltext1">All rights reserved.</a></span></body></html> Tag: Delete unwanted subfolders Tag: 160432
  - 21
    - worksheet problem How do I determine if an Excel worksheet is hidden? TIA, Ves Tag: Delete unwanted subfolders Tag: 160428
  - 22
    - Remote COM question. My functions gets processed by server and not client Hi, I've managed to, make my COM remoteable register my COM on my client pc configure DCOM using dcomcnfg Run my script on my client and it work beautifully except, The function I'm calling checks the diskspace and returns the value. The values I'm getting is the diskspace left on the server where the COM is installed! How can I let the function run on my machine? So I want to make the COM call, but it should process the function locally. This is my current call: set objCom = CreateObject("jkAD.WSC.1.00","file-tbh") Any suggestions? regards jk Tag: Delete unwanted subfolders Tag: 160410
  - 23
    - cdo schedule task runs as user1 but not user2, any ideas ? I've got this small vba code Public Sub sendmail() Dim osession As Object Set osession = CreateObject("MAPI.Session") osession.logon "npescan", "", False, True, 0, False osession.logoff set osession = nothing end sub I'm using the CDO.DLL version found with EXCHANGE5.5 SP 4 the npescan profile has an internet mail account and a personal folder developed on winXP the function runs fine from an ms-access IDE session the function runs fine as a scheduled task if I run it as "xxx\user1" where user1 is a local administrator but the function fails at the 'logon' line if I run it as "xxx\user2" where user2 is both a local administrator and a domain administrator any idea why ? if I move this to win2000 ide runs fine both user1 & user2 (set up per the XP environment) both fail in all cases, the failure is MAPI_E_LOGON_FAILED do I need a different cdo.dll for win2K ? Tag: Delete unwanted subfolders Tag: 160409
  - 24
    - parsing HTML table into excel. How? Hi there, I do have (many) links with HTML text formated in tables. I would like to convert those links (pages) regularily to an excel file just containing parts of the original HTMP table. What is the best way to achieve this? Cut and paste is out of the question. There are too many links. Any pointer is welcome. Thanks a lot Dan Tag: Delete unwanted subfolders Tag: 160405
  - 25
    - Parsing html unsuccessful. Tried VBscript and Perl. GURU's Wanted!! Basically, all I am trying to accomplish is extract all content between the <BODY> and </BODY> tags. I can read the entire file in and write it to another file, all contents, including the tags are there, so I can read it. When I msgbox the variable which contains the content of html, all of the html does not show up! Usually the </BODY> is at the end and therefore a regular expression is not matched. Here is the html from sample file. <html><head><META NAME="PROBLEM" CONTENT="How to: Hide comments in Microsoft Word 2003. "><META NAME="TITLE" CONTENT="Hide Comments in Word 2003 "><META NAME="DESCRIPTION" CONTENT="On the 'View' menu, click 'Markup' to hide comments. "><META NAME="PROBLEM_TYPE" CONTENT="How To Solution"><TITLE>Hide Comments in Word 2003 </TITLE><link REL="stylesheet" TYPE="text/css" HREF="images/common.css"></head><script>function popup(image,width,height){window.open(image,'popup','width='+width+',height='+height+',scrollbars=yes');}</script><body><img src="images/logo.gif" border="0" alt="RightAnswers, LLC"><br><table cellpadding=2 cellspacing=0 border=0 width=100%><tr><td colspan=2><HR></td></tr><tr><td class="solutiontext"><span class="header1">Path to Solution:</span></td><td class="solutiontext"><span class="regular1_bold">Self-Service Library\\Desktop Applications\\Microsoft Word 2003\\Documents\\Collaborating on Documents\\ </span></td></tr><tr><td colspan=2><HR></td></tr><tr><td colspan=2><span class="header1">How to: Hide comments in Microsoft Word 2003.<br><br></span><br></td></tr><tr><td class="solutiontext"><span class="regular1_bold">Solution:</span></td><td><span class="regular1"><ul>On the 'View' menu, click 'Markup' to hide comments.<br></ul></span></td></tr><tr><td class="solutiontext"><span class="regular1_bold">Details:</span></td><td><span class="regular1"><ul>1) On the 'View' menu, click 'Markup'. <br> <span class='notetext'><img src='images/content_note.gif' width=18 border=0>NOTE: If 'Markup' does not appear on the menu, click the arrows for more 'View' menu options. <br> </span><span class='tiptext'><img src='images/content_tip.gif' width=18 border=0>TIP: You can also hide comments by clicking the 'Show' button on the 'Reviewing' toolbar, and then clicking 'Comments' to clear the check mark next to it, thus hiding the comments. To open the to 'Reviewing' toolbar, on the 'Tools' menu, click 'Customize'. Click the 'Toolbar' tab then select the 'Reviewing' check box.<br></ul></span></td></tr><tr><td class="solutiontext"><span class="regular1_bold">Symptoms:</span></td><td><span class="regular1"><ul>How to: Hide comments in Microsoft Word 2003. </ul></span></td></tr><tr><td colspan=2 class="addcenter"><hr></td></tr></span><br></td></tr></table><hr class="big"><span class="smalltext1">Copyright &#0169 2001-<script language="JavaScript">var now = new Date();document.write(now.getFullYear());</script> by RightAnswers, LLC. Subject to the <a href="images/TermsOfService.htm" target="_new" class="smalltext1">Terms of Service</a> set forth in the end-user license agreement. <a href="images/copyright.htm" target="_new" class="smalltext1">All rights reserved.</a></span></body></html> Here is my code: Which works if html = "dfhjfhjkfhjkdf<BODY>dfhjk</BODY>d" Dim re set fso = createobject("scripting.filesystemobject") set ts = fso.opentextfile("c:\temp\word\040292348543382.html") html = ts.readall MsgBox html ' see how all data from file is not shown!! ?? Set re = new RegExp ' creates the RegExp object re.IgnoreCase = True re.Global = True re.pattern = "<BODY>(.*)</BODY>" Set Matches = re.Execute(html) If re.Test(html) Then msgbox Matches.Item(0).SubMatches(0) ts.close Thanks in advance all GURU's. Dave Tag: Delete unwanted subfolders Tag: 160402

bum

-
Shadrac
-----------------------------------------------------------------------
Posted via http://www.codecomments.co
-----------------------------------------------------------------------

Top

Re: Delete unwanted subfolders by Ray

Ray
Wed Jul 14 22:34:33 CDT 2004

Bumping works okay in some message boards, but that's not really going to do
it here in usenet. This just appears to me as a new thread.

Ray at home

"Shadrach" <Shadrach.19ej5n@mail.codecomments.com> wrote in message
news:Shadrach.19ej5n@mail.codecomments.com...
>
> bump
>
>
>
> --
> Shadrach
> ------------------------------------------------------------------------
> Posted via http://www.codecomments.com
> ------------------------------------------------------------------------
>

Top